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ABSTRACT 


The  Improved  Hybrid  Computer  Vehicle  Handling  Program  (IHVHP) 
is  an  extension  of  the  Hybrid  Computer  Handling  Program  (HVHP)  de- 
scribed in  DOT-HS-802-059 , Jul  1976.  The  computing  tasks  have  been 
redistributed  between  the  analog  and  digital  computers.  Many  of 
the  simplifications  that  existed  in  the  HVHP  have  been  removed.  The 
equations  of  motion  for  the  sprung  and  unsprung  masses  of  a vehicle 
have  been  expanded  to  include  higher  order  terms  and  large  pitch  and 
roll  angles.  Numerous  geometric  and  kinematic  calculations  have 
been  modified  to  include  large  pitch  and  roll  angles. 

The  hybrid  computer  simulation  for  vehicle  handling  studies 
has  been  in  use  for  6 years  and  has  been  validated  for  a large  class 
of  two-axle  vehicles.  The  following  suspensions  can  be  simulated: 
(a)  independent  front  and  rear  axles,  (b)  independent  front  with 
solid  rear  axle,  (c)  independent  front  and  solid  rear  axle  with  dual 
rear  tires,  (d)  solid  front  and  rear  axles,  and  (e)  solid  front  and 
rear  axles  with  dual  rear  tires. 

For  validation  purposes,  braking,  steering,  and  combinations 
of  braking  and  steering  were  put  into  the  simulated  mathematical 
model,  and  the  simulation  time  histories  were  then  compared  to  full- 
scale  test  data. 

The  hybrid  vehicle  handling  program  can  be  used  for  general 
studies  of  vehicle  dynamics.  Performance  of  the  National  Highway 
Traffic  Safety  Administration  (NHTSA)  standard  passenger  car  Vehicle 
Handling  Test  Procedures  (VHTP’s)  and  calculation  of  the  associated 
performance  comparison  variables  (PCV's)  are  simulation  options.  A 
special  interactive  user’s  interface  is  available  to  allow  program 
use  by  vehicle  engineers  as  well  as  by  computer  specialists. 
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Section  1 


SUMMARY  AND  INTRODUCTION 


1 . 1 SUMMARY 


This  document  presents  the  latest  version  of  the  National 
Highway  Traffic  Safety  Administration  (NHTSA)  Improved  Hybrid  Com- 
puter Vehicle  Handling  Program  (IHVHP),  which  is  operational  at  the 
Applied  Physics  Laboratory  of  The  Johns  Hopkins  University  (APL/JHU) . 
The  IHVHP  evolved  from  the  Hybrid  Computer  Vehicle  Handling  Program 
(HVHP) , which  is  described  in  Ref.  1.  Many  refinements  have  been 
incorporated  into  the  current  simulation,  the  major  changes  being 
that  (a)  the  equations  of  motion  for  the  sprung  and  unsprung  masses 
of  a vehicle  have  been  expanded  to  include  higher  order  terms  and 
large  pitch  and  roll  angles  and  (b)  numerous  geometric  and  kinematic 
calculations  have  been  modified. 


1.2  INTRODUCTION 


APL  first  became  involved  in  the  prediction  of  vehicle  dy- 
namic performance  via  simulation  in  May  1972.  At  that  time,  NHTSA 
requested  APL  to  move  an  existing  vehicle  simulation  operational 
on  the  hybrid  computer  from  the  Bendix  Research  Laboratories  (BRL) 
to  APL  (Refs.  2 and  3).  NHTSA' s reason  for  moving  the  simulation 
was  to  make  it  available  to  all  NHTSA  contractors  for  vehicle 


Ref.  1.  P.  F.  Bohn  and  R.  J.  Keenan,  Hybrid  Computer  Vehicle 

Handling  Program  — Second  Edition,  DOT-HS-802-059 , Applied  Physics 
Laboratory,  The  Johns  Hopkins  University,  July  1976. 

Ref.  2.  Vehicle  Handling,  Final  Report,  Vol.  II,  Technical 
Report,  DOT  HS-800-282,  Bendix  Research  Laboratories,  Southfield, 
Michigan,  April  1970. 

Ref.  3.  Computer  Simulation  of  Vehicle  Handling,  DOT  HS- 

800-789,  NHTSA  Control  FH-11-7563,  Bendix  Research  Laboratories, 
Southfield,  Michigan,  September  1972. 
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research.  APL  reprogrammed  the  BRL  simulation  for  its  hybrid  compu- 
ter without  changing  the  model;  the  result  was  published  in  Ref.  4. 
The  derivation  of  the  original  HVHP  model  is  presented  in  Ref.  5. 

Work  with  NHTSA  contractors  began  in  July  1973,  when  APL 
started  providing  simulation  service  to  the  Calspan  Corporation  on 
the  NHTSA  research  on  the  effects  of  tire  properties  on  vehicle 
handling  (Ref.  6).  During  the  work  with  Calspan,  two  primary  simu- 
lation modifications  were  completed  by  APL: 

• A very  flexible  user  interface  for  interactive  simula- 
tion control  designed  at  APL  was  added,  and 

• A new  tire  force  and  moment  model  specified  by  Calspan 
was  added. 

Also  added  to  the  simulation  about  this  time  was  the  capability 
automatically  to  initialize  the  simulation  to  perform  any  of  the 
six  Vehicle  Handling  Test  Procedures  (VHTP's)  and  to  collect  and 
process  the  data  required  to  calculate  the  vehicle  performance 
comparison  variables  (PCV’s).  These  VHTP’s  and  PCV's  were  origi- 
nally developed  by  the  Highway  Safety  Research  Institute  (HSRI) , 
University  of  Michigan  (Refs.  7 and  8)  and  restated  for  computer 


Ref.  4.  P.  F.  Bohn,  R.  J.  Keenan,  and  J.  Prowznik,  Opera- 
tional Hybrid  Computer  Simulation  for  Vehicle  Handling  Studies,  DOT 
HS-800-764,  Applied  Physics  Laboratory,  The  Johns  Hopkins  University, 
September  1972. 

Ref.  5.  F.  Jindra,  Mathematical  Model  of  Four-Wheel  Vehicle 
for  Hybrid  Computer  Vehicle  Handling  Program,  DOT  HS-801-800,  Ultra- 
systems, Inc.,  The  Dynamic  Science  Division,  October  1975. 

Ref.  6.  Research  on  the  Influence  of  Tire  Properties  on 
Vehicle  Handling,  Final  Report,  Contract  DOT  HS-053-3-727 , Calspan 
Corporation,  June  1974. 

Ref.  7.  R.  D.  Ervin,  P.  Grote,  P.  S.  Fancher,  C.  C.  Mac- 
Adam,  and  L.  Segel,  Vehicle  Handling  Performance,  DOT  HS-800-758, 
Highway  Safety  Research  Institute,  University  of  Michigan,  Novem- 
ber 1972. 

Ref.  8.  P.  S.  Fancher,  R.  D.  Ervin,  P.  Grote,  C.  C.  Mac- 
Adam,  and  L.  Segel,  Limit  Handling  Performance  as  Influenced  by 
Degradation  of  Steering  and  Suspension,  DOT  HS-800-761,  Highway 
Safety  Research  Institute,  University  of  Michigan,  November  1972. 
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implementation  by  APL  (Ref.  9).  The  result  of  this  work  was  the 
HVHP  documented  in  Ref.  10. 

The  computer  program  was  further  extended  in  1974  by  the 
Dynamic  Science  Division  of  Ultrasystems,  Inc.,  to  simulate  fea- 
tures of  recreational  vehicles  (Ref.  11).  These  features  included 
aerodynamic  effects,  solid  front  axle,  dual  rear  wheels,  and  four- 
wheel  drive. 

The  HVHP  model  equations  describing  tire-road  reaction  mo- 
ments about  the  kingpin  axis  were  modified  during  a recent  roadway 
disturbance  study  conducted  by  Systems  Technology,  Inc.  (Ref.  12). 
The  change  was  required  to  account  for  the  effect  of  the  tilt  of  the 
tire  contact  patch  with  respect  to  the  horizontal  plane. 

These  program  modifications  have  been  implemented  and  veri- 
fied with  full-scale  vehicle  test  results.  Currently,  dynamic  per- 
formance of  vehicles  of  the  following  suspension  types  can  be  pre- 
dicted by  the  IHVHP: 

• Independent  front  and  rear  suspensions 

• Independent  front  with  solid  rear  axle 

• Independent  front  and  solid  rear  axle  with  dual  rear 

tires 

« Solid  front  and  rear  axles 

• Solid  front  and  rear  axles  with  dual  rear  tires 


Ref.  9.  P.  F.  Bohn,  "Modeling  and  Simulation  in  Vehicle 

Handling,"  DOT  HS-82-306,  Vehicle  Safety  Research  Integration 
Symposium,  Applied  Physics  Laboratory,  The  Johns  Hopkins  University, 
30  May  1973. 

Ref.  10.  P.  F.  Bohn  and  R.  J.  Keenan,  Hybrid  Computer  Vehicle 
Handling  Program,  DOT  HS-801-290,  Applied  Physics  Laboratory,  The 
Johns  Hopkins  University,  July  1974. 

Ref.  11.  Handling  Test  Procedures  for  Light  Trucks,  Vans, 
and  Recreational  Vehicles,  Final  Report,  DOT  HS-801-824,  Ultra- 
systems, Inc.,  The  Dynamic  Science  Division,  February  1976. 

Ref.  12.  Influence  of  Roadway  Disturbances  on  Vehicle  Han- 
dling, Final  Report,  DOT  HS-802-210,  Systems  Technology,  Inc., 
February  1977. 
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Validation  of  each  suspension  type  has  been  accomplished  by  com- 
parison of  simulation  and  full-scale  test  data. 

In  its  work  with  NHTSA  contractors,  APL  has  added  to  the 
simulation  model  any  refinements  required  by  a contractor  to  com- 
plete his  research  successfully;  the  simulation  has  proven  to  be 
economical  for  vehicle  dynamic  performance  prediction.  User  ex- 
perience with  the  IHVHP  has  shown  that,  while  performing  parametric 
runs,  500  s of  vehicle  motion  can  be  simulated  in  1 h of  computer 
use.  This  translates  to  a cost  of  less  than  $0.50/s  of  simulated 
motion  and  represents  a 50%  utilization  of  the  available  computing 
time.  Since  this  simulation,  running  at  one-fourth  real  time,  is 
capable  of  900  s of  simulated  motion  per  hour,  approximately  50% 
of  the  time  is  utilized  for  observing  data  and  changing  parameters. 
The  $0.50/s  should  be  viewed  as  the  current  lower  cost  limit. 

For  program  debugging  and  model  checkout,  fewer  runs  are 
made  in  a given  time  period  than  when  parametric  data  are  being 
produced.  Therefore,  the  cost  per  second  of  simulated  motion  would 
increase.  However,  general  experience  has  indicated  that  on-line 
data  observation  for  debugging  decreases  the  total  time  required 
for  program  checkout.  During  the  debug  phase,  IHVHP  cost  usually 
ranges  between  $1.00  and  $2. 00/s  of  simulated  motion,  with  a de- 
creasing trend  toward  the  $0.50/s  cost. 
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Section  2 


IMPROVED  HYBRID  COMPUTER  VEHICLE  HANDLING  PROGRAM 


2.1  INTRODUCTION 


This  section  describes  the  Improved  Hybrid  Computer  Vehicle 
Handling  Program  (IHVHP).  The  basic  mathematical  model,  contained 
in  Appendix  A,  is  described  in  terms  of  17  degrees  of  freedom  (DOF). 
The  perturbing  forces  and  moments  that  act  on  the  vehicle  are  also 
considered.  The  simulation  implementation  and  validation  are  dis- 
cussed. 


2.2  SIMULATION 

2.2.1  Mathematical  Model 

The  simulated  vehicle  is  represented  by  a 17-DOF  model 
that  consists  of 

® A basic  6-DOF  model  of  the  vehicle  sprung  mass 

• A 2-DOF  front  wheel  or  front  axle  model 

• A 2-DOF  rear  wheel  or  rear  axle  model 

• A 3-DOF  steering  system  model 

• A 4-DOF  wheel  rotational  dynamics  model 

The  6 DOF's  of  the  sprung  mass  model  are  the  6 standard 
translational  and  rotational  DOF's  of  a body  moving  in  inertial 
space:  translation  along  three  axes  and  rotation  about  each  axis. 

The  2 front  wheel  DOF's  represent  the  motion  of  the  front  unsprung 
masses.  For  an  independent  front  suspension,  the  2 DOF's  are  the 
vertical  motion  of  each  front  wheel.  If  the  front  suspension  rep- 
resents a solid  axle  configuration,  the  2 DOF's  are  the  rotation 
and  vertical  motion  of  the  front  axle.  The  2 rear  wheel  DOF's  are 
analogous.  An  analytical  representation  of  the  vehicle  model  show- 
ing independent  front  and  solid  rear  axle  suspensions  is  illustrated 
in  Fig.  2-1.  A solid  rear  axle  representation  is  presented  in  Fig. 
2-2. 
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Fig.  2-1  Analytical  Representation  of  the  Vehicle  Model 


Fig.  2-2  Analytical  Representation  of  the  Solid  Rear  Axle  Model 
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The  vehicle  model  allows  the  following  options: 

• Independent  rear  suspension  (two  rear  unsprung  masses) 
with  2 DOF's  corresponding  to  the  vertical  motion  of 
each  rear  wheel, 

• Solid  front  axle  (front  unsprung  mass)  with  2 DOF's 
corresponding  to  the  vertical  motion  and  rotation  of 
the  front  axle,  and 

® Dual  tires  on  a solid  rear  axle  with  either  independent 
front  suspension  or  solid  front  axle. 

Inertial  coupling  between  the  sprung  mass  and  the  front  and  rear 
unsprung  masses  is  considered,  but  external  forces  and  moments  due 
to  rolling  resistance  and  gyroscopic  effects  of  the  rotating  parts 
are  neglected. 

The  steering  system  is  represented  by  a lumped  parameter 
model  with  3 DOF's  corresponding  to  the  rotational  motion  of  each 
front  wheel  about  its  steering  pivot  and  translational  motion  of 
the  connecting  steering  rod  and  associated  mass  elements.  The 
effects  of  steering  system  friction  and  compliance  are  included. 

The  tire  moments  about  each  kingpin  axis  are  functions  of  the  cir- 
cumferential and  side  tire  forces,  tire  aligning  torque,  the  incli- 
nation and  caster  of  the  kingpins,  and  the  caster  trail  effects  of 
the  tires.  Steering  wheel  displacement  is  the  steering  system 
input . 


Four  additional  DOF's  (for  the  total  of  17)  are  contained 
in  the  rotational  equations  of  motion  about  the  spin  axis  of  each 
wheel.  These  equations,  which  include  the  differential  effects  of 
the  front  or  rear  wheels,  yield  the  wheel  rotation  rates  from  which 
slip  and,  in  turn,  the  circumferential  and  lateral  friction  coeffi- 
cients are  computed.  The  differential  equations  for  wheel  rotation 
are  assumed  to  be  isolated  from  the  coupled  differential  equations 
of  motion  of  the  sprung  and  unsprung  masses,  but  inertial  inter- 
action between  the  drive  wheels  is  included. 

Forces  are  transmitted  between  the  sprung  and  unsprung 
masses  through  the  suspension  system.  The  suspension  forces  in- 
clude spring  effects,  shock  absorbers,  auxiliary  roll  stiffness, 
coulomb  friction,  and  "anti"  forces  such  as  antipitch  and  antiroll. 
The  suspension  deflections  are  calculated  relative  to  the  suspen- 
sion equilibrium  position,  which  varies  with  vehicle  weight.  The 
angular  orientation  (camber  angle,  toe  angle,  caster  angle)  of  an 
independently  suspended  wheel  relative  to  the  vehicle  body  is  speci- 
fied as  a function  of  the  suspension  deflection.  These  functions 
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are  input  relative  to  the  equilibrium  vehicle  suspension  position 
and  then  corrected  to  the  new  equilibrium  position  for  varying  ve- 
hicle weight  configurations.  Compliance  coefficients  are  used  to 
relate  the  change  in  camber  angle  and  steer  angle  with  applied 
forces  and  moments  at  the  tire.  Provisions  are  also  incorporated 
to  investigate  the  effects  of  degraded  suspension  components. 

The  force  of  gravity,  aerodynamic  forces  and  moments,  and 
tire  forces  and  moments  generated  at  the  tire-road  interface  are 
considered  the  only  important  externally  applied  forces  and  moments 
acting  on  the  vehicle.  The  tire  forces  include  the  normal  force 
arising  from  radial  tire  deflection,  the  side  force  due  to  slip 
angle  and  inclination  angle,  and  the  circumferential  force  arising 
from  applied  torque.  Since  the  roadway  is  treated  as  a flat  hori- 
zontal plane,  a "point-contact"  representation  of  the  tire  is  used 
to  obtain  the  radial  loading.  The  circumferential  force  calcula- 
tion uses  a two-straight-line  approximation  of  friction  coefficient- 
slip  behavior.  The  side  force  calculations  are  based  on  slip-angle 
and  inclination-angle  properties  of  the  tires  that  are  saturated 
at  large  angles.  Interaction  between  circumferential  and  side 
forces  utilizes  a modified  "friction-ellipse"  concept  that  "rolls 
off"  side  force  as  a function  of  tire  slip.  The  rolloff  charac- 
teristic is  an  empirical  relationship  obtained  from  tire  test  data. 
The  tire-aligning  torque  and  overturning  moment  are  modeled  as  non- 
linear functions  of  lateral  force,  normal  force,  and  inclination 
angle.  To  account  for  differences  in  tire  characteristics  at  the 
front  and  rear  wheels,  provisions  are  made  to  input  separate  para- 
metric sets  for  front  and  rear  tires. 

Open-loop  control  inputs  can  be  entered  in  the  form  of 
steering  wheel  angle  and  drive  or  brake  torque.  The  drive  torque 
is  generated  to  maintain  a constant  velocity  of  the  vehicle.  The 
brake  torque  magnitude  is  determined  from  input  data  functions  of 
brake  line  pressure  at  the  front  and  rear  wheels.  Since  the  equa- 
tions of  motion  are  written  in  terms  of  a moving  vehicle's  axis 
system,  a coordinate  transformation  is  required  to  relate  the 
vehicle's  position  and  orientation  with  respect  to  an  orthogonal 
coordinate  system  fixed  in  space. 

2.2.2  Allocation  of  Analog  and  Digital  Computer  Tasks 

Since  the  model  is  solved  on  a hybrid  computer,  it  must  be 
subdivided  into  equations  to  be  solved  on  the  analog  computer  and 
those  to  be  solved  on  the  digital  computer.  Computing  tasks  were 
allocated  using  the  following  guidelines: 
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• Function  generation  requiring  extensive  algebraic  cal- 
culations or  references  to  tables  of  values  should  be 
performed  on  the  digital  computer. 

9 System  variables  determined  from  the  solution  of  dif- 
ferential equations  should  be  graded  according  to  re- 
sponse time  (time  constant).  The  differential  equa- 
tions representing  the  fastest  variables  should  be 
solved  on  the  analog  computer  and  the  remaining  equa- 
tions solved  on  the  digital  computer. 

Slight  compromises  to  the  task  allocation  as  determined  by  the  above 
rules  were  required  due  to  limitations  in  digital  computer  computa- 
tion speed,  numbers  of  analog  computer  computation  modules,  and 
available  analog-to-digital  and  digital-to-analog  data  communication 
modules . 


The  present  allocation  of  computing  tasks  between  the  ana- 
log and  digital  computers  is  presented  in  Fig.  2-3.  Calculated  in 
the  digital  portion  are  the  longitudinal  wheel  slip,  circumferen- 
tial coefficient  of  friction,  wheel  orientation  angle  equations, 
and  tire  force  equations,  as  well  as  wheel  brake  and  drive  torques, 
velocities  of  the  tire  contact  point,  and  resultant  forces  and 
moments . 


The  analog  computations  include  the  suspension  forces, 
shock  absorber  and  wheel  sprung  functions,  and  wheel  spin  veloci- 
ties. In  addition,  the  equations  of  motion  of  the  sprung  and  un- 
sprung masses  and  steering  system  equations  are  solved  on  the  ana- 
log computer. 

The  hybrid  simulation  is  time  scaled  to  run  normally  at  one- 
fourth  real  time,  i.e.,  20  s of  clock-on-the-wall  time  is  required 
for  5 s of  vehicle  simulation.  However,  one-half  real-time  opera- 
tion, with  subsequent  cost  savings,  is  possible. 

2.2.3  Implementation  of  the  Mathematical  Model 

2. 2. 3.1  Analog  Portion.  The  APL/JHU  hybrid  computer  facil- 
ity (Appendix  B)  contains  analog  machines  manufactured  by  Electronic 
Associates,  Inc.  (EAI) . The  portion  of  the  model  programmed  on  the 
analog  computer  is  divided  between  models  of  EAI  analog  computers. 
The  entire  steering  system  is  contained  on  an  EAI  231-R,  and  the 
rotational  wheel  dynamics,  equations  of  motion,  and  suspension  dy- 
namics are  contained  on  an  EAI  680.  Data  communication  with  the 
digital  computer  is  provided  by  24  multiplying  digital-to-analog 
converters  (MDAC's),  24  nonmultiplying  DAC’s,  and  48  analog-to- 
digital  converters  (ADC’s).  The  system  contains  a control  interface 
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Fig.  2-3  Hybrid  Simulation  Block  Diagram  of  the  IHVHP  Model 


that  allows  complete  control  of  the  680  analog  computer  and  data 
interface  by  the  digital  computer. 

x 

To  expedite  setup  and  checkout  of  the  analog  portion,  a 
static  analog  test  program  for  three  suspension  configurations  was 
used : 

• Independent  front  and  rear 

® Independent  front  with  solid  rear  axle 

® Solid  front  and  rear  axles 

This  was  accomplished  by  programming  the  mathematical  model  equa- 
tions solved  on  the  analog  computer  as  a digital  simulation  language 
program  (Ref.  13).  The  digital  program  output  provided  an  indepen- 
dent check  of  the  simulation.  The  static  check  results  verify  that 
the  programmed  analog  portion  of  the  simulation  represented  the 
particular  vehicle  mathematical  model  equations. 

2. 2. 3. 2 Digital  Portion.  The  APL/JHU  hybrid  computer 
facility  (Appendix  B)  uses  an  IBM  360/91  for  digital  calculations. 
Model  coding  is  performed  in  the  Fortran  IV  language.  Model  cal- 
culations not  assigned  to  the  analog  computers  are  performed  digi- 
tally. 

2.3  USER'S  INTERFACE 

The  interface  between  the  engineering  user  and  the  compu- 
ter has  been  designed  to  maximize  user  control  and  information 
retrieval  from  the  hybrid  computer  (Ref.  14).  The  interface  has 
been  implemented  by  a set  of  generalized  input/output  subroutines. 
Using  these  communication  routines,  the  following  necessary  tasks 
can  be  accomplished  interactively  at  the  CRT  hybrid  control  console: 

® Interrogation  of  any  digital  variable,  including  arrays, 
by  name, 

® Assignment  of  new  values  to  any  digital  parameter  or 
initial  condition, 


Ref.  13.  P.  F.  Bohn,  "Simulation  Language  Generated  Static 
Checks  for  Hybrid  and  Analog  Simulations,"  Simulation,  September 
1971. 

Ref.  14.  K.  W.  Colby  and  P.  F.  Bohn,  "Generalized  Man/Machine 
Communication  Subroutines  for  Hybrid  Simulation,"  Proceedings  of 
the  Summer  Computer  Simulation  Conference,  July  1974. 
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• Tracking  and  printing  the  values  of  any  digital  variable 
as  a function  of  time, 

• Printing  the  end-of-run  values  of  any  digital  variable 
or  parameter, 

• Performing  automatically  a group  of  parametric  runs 
varying  one  or  more  parameters  or  initial  conditions  by 
an  arbitrary  amount, 

• Assigning  new  digital  variables  to  the  DAC's  and  ADC's, 

• Rescaling  the  digital  variables  output  on  the  DAC’s  or 
input  on  the  ADC’s, 

• Notating  the  computer  output  with  observations  perti- 
nent to  the  computer  runs,  and 

• Printing  the  value  of  all  digital  variables  on  command. 

The  usefulness  of  these  routines  is  augmented  by  the  following  fea- 
tures : 

• The  output  unit  for  all  digital  computer  responses  is 
selectable  (line  printer,  CRT,  or  both). 

• Extensive  subroutine  error  recovery  allows  operation 
by  untrained  personnel. 

• Free  format  input  obviates  the  need  to  always  insert 
decimal  points,  spaces,  etc.,  which  is  required  by 
Fortran  syntax. 

An  explanation  of  the  modules  that  are  the  building  blocks  of  the 
routines,  as  well  as  a discussion  of  interaction,  is  presented  in 
Appendix  C. 

2.4  VHTP  MANEUVERS  AND  PERFORMANCE  COMPARISON  VARIABLES 


Due  to  the  importance  of  handling  test  procedures  in  vehicle 
research,  the  IHVHP  was  programmed  to  perform  automatically  those 
test  procedures  defined  for  passenger  cars  (Ref.  9).  The  associated 
performance  comparison  variables  (PCV’s)  for  the  Vehicle  Handling 
Test  Procedures  (VHTP’s)  are  also  automatically  calculated.  Since 
test  procedures  generally  employ  the  input  commands  of  braking, 
steering,  and  combinations  of  braking  and  steering,  the  IHVHP  imple- 
mentation can  generally  be  used  to  generate  test  procedures  for  all 


12 


type  of  vehicles.  The  PCV’s  are  less  general  and  refer  specifically 
to  the  National  Highway  Traffic  Safety  Administration  (NHTSA)  pas- 
senger vehicle  VHTP's  defined  in  Ref.  9. 

2.4.1  VHTP  Maneuvers 


The  simulation  has  the  capability  of  self-initializing  to 
perform  any  of  the  six  automobile  VHTP  maneuvers  and  of  calculat- 
ing the  PCV's  appropriate  for  the  selected  VHTP.  Using  the  commu- 
nication routines,  a VHTP  is  selected  by  addressing  the  Fortran 
variable  VHTPNO  and  assigning  it  a value  from  1 to  6.  The  value 
of  0 is  reserved  for  a special  check  run  that  verifies  correct  dy- 
namic operation  of  the  simulation.  Once  a VHTP  has  been  selected, 
the  system  forcing  function  pertinent  to  the  VHTP  can  be  accessed. 

For  all  VHTP's,  the  Fortran  variable  PFL  represents  brake  line 
pressure.  For  VHTP's  2 to  6,  the  steering  wheel  input  has  the  For- 
tran name  STR2 , STR3,  etc.  The  names  PFL,  STR2,  etc.  can  be  used 
in  the  multiple-run  routine  to  simulate  a series  of  VHTP  tests  in 
which  the  brake  line  pressure  or  steering  wheel  input  is  incremented. 
By  convention,  when  a VHTP  is  selected  in  which  the  steering  input 
is  normally  a parameter  (VHTP  2,  4,  or  5),  the  STR  variable  con- 
tains the  steering  wheel  rotation  required  to  input  2.0°  of  nor- 
malized steer.  This  value  is  required  for  run  series  in  which  the 
steering  is  incremented. 


2.4.2  VHTP  Performance  Comparison  Variables 

PCV's  are  output  in  both  the  single-run  and  multiple- run 
modes.  If  a single  run  is  executed,  a general  comparison  variable 
format  is  selected  in  which  all  PCV's  are  output.  However,  only 
those  pertinent  to  the  selected  VHTP  will  be  nonzero.  If  a series 
of  runs  is  executed,  the  output  is  in  a tabular  format  with  the 
forcing  function  (steering  wheel  angle  or  brake  line  pressure) 
starting  in  the  left  column  followed  by  the  pertinent  PCV's.  An 
example  is  presented  in  Fig.  2-4,  in  which  the  following  occur: 

1.  VHTP  is  selected. 

2.  The  STR4  variable  is  interrogated  to  determine  the 
steering  wheel  rotation  for  2°  of  normalized  steer. 

3.  The  steering  wheel  input  is  set  equal  to  300°. 

4.  A single  run  is  executed. 
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TERMINAL  ACTIVE 

HYBRID  VEHICLE  HANDLING  PROGRAM 
HYBRID  COMPUTER  PROB*  91 
CARNEW  LOAD  MODULE 
D0DGE71  VEHICLE 


ENGAGE  PATCH  PANEL  FOR  TEST 
TYPE  CR  WHEN  READY 
«*** 

MAY  12  1976 

TIME  11:15:  0.46 

OPTION 

■x***  F 

ENTER 

*#**  VHTF'NO  4 
«*** 

OPTION 
»*»«  IC 
OPTION 
•x**»  F 
ENTER 

»*#*  STR4 
27.93 

«***  STR4  300 
x*** 

OPTION 

»«««  X 

MAY  12  1976 

TIME  11:16:  0.94 
RUN  1 HAS  STARTED 

OUTPUT  BELOW  » 

AXAV=  0.0  DECL  TIME=  0.000  AVCUR=  0.720  BTDMAX=  0.222  BTMAX=  0.171  DELBT=  0.172 
AYMAX=  0.762  PHIMAX=  7.754  RMAX=  0.572  LANE  CHNG  DEL.=  0.0  DELPSI=  0.0  MAX  STEER-  300.000 
FTRQMAX=  0.  RTRQMAX=  0. 


OPTION 
■»*»»  F 
ENTER 

«***  VHTPNO  4 
«•** 

OPTION 

«***  MULTI 

NUM  OF  LOOPS /VARS 

«»#*  4 1 

VAR 

**»*  STR4 
LOOP /VAL/ INC 
«**»  1 27.9  27.9 

»*** 

OPTION 
«***  XM 

MAY  12  1976 

TIME  11:17: 24.42 
RUN  2 HAS  STARTED 
OUTPUT  BELOW 


MULTI 

TOTAL 

STR4..1  1 

) BETAMX ( 1 ) 

BETDMXl  1 i 

CUVRAT ( 1 ) 

AYMAX . ( 1 ) 

RMAX..I  1 

1 

2 

27.9 

0 . 363E-02 

0.1 23E-01 

0 . 579E-0 1 

0 . 754E-0 1 

0 . 431  E-0‘ 

3 

55.8 

0.104E-01 

0.331E-01  ■ 

0.150 

0.187 

0.114 

3 

4 

83.7 

0.1 96E-01 

0 . 538E-01 

0.247 

0 . 305 

0.184 

4 

5 

112. 

0.3401  01 

0.761E-01 

0.344 

0 . 422 

0.256 

OPTION 
****  TERM 
MAY  12  1976 

TIME  11 : 1 9 : 1 1 .53 
PROGRAM  TERMINATED 

Fig.  2-4  IHVHP  User's  Interactive  Control 
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5. 


A run  series  of  four  runs  is  set  up  with  STR4  initial- 
ized to  2°  normalized  steer  (NS)  and  incremented  by  2° 
NS  in  each  run. 

6.  A multiple  run  is  executed. 

7.  The  program  is  terminated. 

A representative  parametric  run  series  for  each  VHTP  is  presented 
in  Figs.  2-5  through  2-10.  PCV  graphs  for  four  vehicles  are  pre- 
sented in  Appendix  D. 


2.5  VALIDATION 


Through  cooperative  research  efforts  with  different  NHTSA 
contractors,  the  Hybrid  Computer  Vehicle  Handling  Program  (HVHP) 
has  been  validated  at  least  once  for  each  type  of  suspension  con- 
figuration and  many  times  for  the  standard  American  passenger  car 
suspension.  In  each  case,  validation  consisted  of  the  contractor 
comparing  simulation  and  full-scale  test  time  history  responses. 
Therefore,  in  addition  to  APL  validation,  the  HVHP  performance  has 
been  examined  by  engineers  with  extensive  backgrounds  in  vehicle 
handling. 

The  IHVHP  evolved  from  the  HVHP.  The  major  improvements 
and  refinements  are  discussed  in  Subsection  2. 5. 1.6.  For  valida- 
tion purposes,  the  IHVHP  was  exercised  for  each  type  of  suspension 
configuration.  Comparisons  of  the  IHVHP  simulation  results  (tran- 
sient and  steady-state)  with  previously  obtained  HVHP  simulation 
results  showed  acceptable  agreement  between  the  two  programs. 


2.5.1  NHTSA  Research  Programs 


The  following  paragraphs  summarize  the  completed  NHTSA  re- 
search programs  in  which  the  HVHP  and  IHVHP  were  used. 

2 . 5 . 1 . 1 Passenger  Car  Tire  Effects  Program.  The  HVHP  was 
used  extensively  for  vehicle  simulation  while  APL  worked  coopera- 
tively with  the  Calspan  Corporation  on  DOT  contract  HS-053-3-727 
(Ref.  6).  For  this  contract,  "Research  on  the  Influence  of  Tire 
Properties  on  Vehicle  Handling,"  Calspan  was  responsible  for  re- 
fining the  tire/road  interface  model  that  APL  incorporated  into 
the  HVHP.  Calspan  monitored  the  simulation  modification  and  ex- 
amined the  output  for  authenticity. 
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Fig.  2-7  IHVHP  Interaction  for  VHTP  3 
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In  the  performance  of  this  research  over  2000  simulated 
VHTP’s  were  run.  Four  vehicles  were  simulated:  Chevrolet  Brook- 

wood  station  wagon,  Dodge  Coronet,  Pontiac  Trans  Am,  and  Volks- 
wagen Superbeetle.  For  each  vehicle,  a complete  set  of  VHTP’s  was 
performed  using  simulated  original  equipment  (OE)  tires.  Parametric 
studies  were  then  performed  varying  tire  parameters  to  determine 
their  effects  on  vehicle  handling  performance.  The  PCV  graphs  for 
the  original  equipment  tire  configuration  runs  are  presented  in 
Appendix  D of  this  report. 

2 . 5 . 1 . 2 VHTP’s  for  Recreational  Vehicles.  The  HVHP  was 
used  extensively  for  vehicle  simulation  while  APL  worked  coopera- 
tively with  the  Dynamic  Science  Division  of  Ultrasystems,  Inc.,  on 
DOT  contract  HS-4-00853  (Ref.  11).  For  this  research,  "Handling 
Test  Procedures  for  Light  Trucks,  Vans,  and  Recreational  Vehicles," 
Dynamic  Science  was  responsible  for  redefining  the  HVHP  model  to 
simulate  a wider  class  of  vehicles.  During  the  course  of  the  con- 
tract, the  suspension  options  were  broadened  to  permit  simulation 
of  any  of  the  following  suspension  types: 

• Independent  front  and  rear 

• Independent  front  with  solid  rear  axle 

• Independent  front  and  solid  rear  axle  with  dual  rear 
tires 

• Solid  front  and  rear  axles 

• Solid  front  and  rear  axles  with  dual  rear  tires 

A model  representing  vehicle  aerodynamic  properties  was  also  added 
at  this  time. 

In  the  performance  of  the  research,  over  2500  recreational 
vehicle  VHTP's  were  run  and  five  vehicles  were  simulated:  Ford 

F-250  pickup  truck  equipped  with  a representative  11-ft  camper, 
Volkswagen  Campmobile,  Jeep  Wagoneer,  Open  Road  motor  home  (type  C) , 
and  a Winnebago  motor  home  (type  A) . Parametric  studies  were  per- 
formed on  these  vehicles  to  determine  appropriate  handling  test 
procedures  for  small  trucks  and  recreational  vehicles.  This  re- 
search effort  is  documented  in  Refs.  5 and  11. 

2 . 5 . 1 . 3 Truck  and  Bus  Tire  Effects  Program.  The  HVHP  was 
used  extensively  for  vehicle  simulation  while  APL  worked  coopera- 
tively with  the  Highway  Safety  Research  Institute  (HSRI),  University 
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of  Michigan,  on  DOT  contract  HS-4-00943  (Ref.  15).  For  this  re- 
search, "Effects  of  Tire  Properties  on  Truck  and  Bus  Handling," 
HSRI  provided  APL  with  tire  model  refinements  that  simplified  the 
simulation  of  truck  tire  forces  and  moments.  Trapezoidal  and 
sinusoidal  steer  VHTP's  were  performed  using  simulated  OE  tires. 
Parametric  studies  were  then  performed  using  the  same  VHTP's  but 
varying  tire  parameters  to  determine  their  effects  on  vehicle  han- 
dling performance. 

In  the  performance  of  this  research,  over  1500  simulated 
VHTP's  were  run  and  four  vehicles  were  simulated:  Ford  Econoline 

Van,  Ford  F-250  pickup  truck,  White  tractor,  and  a GMC  intercity 
bus . 


2 . 5 . 1 . 4 Passenger  Cars  Pulling  Trailers.  The  HVHP  was 
used  for  vehicle  simulation  while  APL  worked  cooperatively  with 
Systems  Technology,  Inc.  (STI)  on  DOT  contract  HS-4-00900  (Ref.  16). 
For  this  research,  "Passenger  Cars  and  Light  Trucks  Pulling  Trailers," 
STI  was  responsible  for  defining  a trailer  model  that  was  compatible 
with  the  HVHP  and  could  be  added  to  it.  During  the  course  of  this 
research,  a model  of  a one-  or  two-axle  trailer  connected  to  a tow 
vehicle  with  a ball  hitch  was  incorporated  into  the  HVHP.  Braking, 
steering,  and  combined  braking  and  steering  simulation  runs  were 
performed.  The  simulated  tow  vehicle  was  a Chevrolet  Caprice  sta- 
tion wagon  and  the  towed  vehicle  was  a single-axle  trailer. 

2. 5. 1.5  Sublimit  Performance  Maneuvers.  The  HVHP  simula- 
tion was  modified  to  incorporate  various  steering  and  suspension 
degradations  during  a research  study  with  STI  (Ref.  17).  The  simu- 
lation results  were  used  in  the  selection  of  maneuver  and  component 
degradation  levels  for  full-scale  vehicle  testing. 

2. 5. 1.6  Development  of  Vehicle  Rollover  Maneuver.  During 
this  research  effort  with  the  Calspan  Corporation,  the  IHVHP  evolved. 


Ref.  15.  Research  on  the  Effects  of  Tire  Properties  on  Truck 
and  Bus  Handling,  Final  Report,  Contract  DOT  HS-4-00943,  Highway 
Safety  Research  Institute,  University  of  Michigan,  June  1976. 

Ref.  16.  Research  on  Passenger  Cars  and  Light  Trucks  Pulling 
Trailers,  Final  Report,  Contract  DOT  HS-4-00900,  Systems  Technology, 
Inc.,  June  1976. 

Ref.  17.  Development  of  Vehicles  - In-Use  Sub-Limit  Maneuvers, 
Final  Report,  Contract  DOT  HS-5-01191,  Systems  Technology,  Inc.,  May 
1977. 
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The  computing  tasks  between  the  analog  and  digital  computers  were 
redistributed.  Many  of  the  simplifications  that  existed  in  the 
HVHP  were  removed.  The  major  modifications  are: 

1.  Expansion  of  the  equations  of  motion  for  the  sprung  and 
unsprung  masses  to  include  the  higher  order  terms, 

2.  Expansion  of  the  calculation  of  inertial  terms  to 
include  the  time-varying  effects  of  unsprung  mass 
movements , 

3.  Modification  of  the  calculation  of  Euler  angles  and 
vehicle  position  to  eliminate  the  small-angle  assump- 
tion for  roll  and  pitch, 

4.  Modification  of  the  calculation  of  the  resultant  forces 
and  moments  applied  to  the  vehicle  to  eliminate  the 
small-angle  assumption  for  roll  and  pitch, 

5.  Modification  of  the  calculation  of  wheel  center  height 
above  the  ground  to  allow  large  pitch  and  roll  angles, 

6.  Modification  of  the  calculation  of  tire  contact  point 
velocities  to  include  time-varying  unsprung  mass 
positions , 

7.  Modifications  of  the  calculations  of  wheel  velocity  in 
the  ground  plane  to  account  for  large  pitch  and  roll 
angles , 

8.  Change  of  the  computation  of  tire  forces  using  tire 
force  normal  to  the  ground  rather  than  tire  radial 
force, 

9.  Modification  of  the  wheel  slip  angle  calculation  to 
include  the  steer  angle  in  the  ground  plane  rather 
than  the  steer  angle  with  respect  to  the  vehicle,  and 

10.  Modification  of  the  calculation  of  camber  angle  with 

respect  to  the  road  to  eliminate  the  small  angle  assump- 
tions on  vehicle  pitch  and  roll. 

In  the  past  year,  the  IHVHP  has  been  used  for  many  NHTSA 
research  efforts  pertaining  to  vehicle  handling  during  braking  and/ 
or  steering  maneuvers  and  is  presently  being  used  to  study  the  in- 
fluences of  aerodynamic  disturbances  on  vehicle  handling,  an  NHTSA 
research  study  conducted  by  STI. 
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During  the  course  of  a recent  study  concerning  passenger 
car  braking  performance,  APL  incorporated  a Kelsey-Hayes  Anti-Lock 
model  into  the  IHVHP.  The  NHTSA  study  was  conducted  by  HSRI  which 
supplied  the  antilock  math  model. 

2.5.2  Vehicle  Handling  Test  Procedures 


Time  histories  for  a typical  set  of  VHTP  maneuvers  are  pre- 
sented in  Figs.  2-11  to  2-16.  The  vehicle  simulated  for  these  runs 
was  the  1971  Dodge  Coronet.  A general  discussion  of  IHVHP  simula- 
tion output  is  presented  in  Appendix  E. 

2. 5. 2.1  Straight  Line  Braking.  This  run  series  determines 
the  value  of  brake  line  pressure  at  which  two  wheels  on  the  same 
axle  lock  up.  For  this  vehicle,  both  rear  wheels  were  locked  at 
500  psi  and  all  four  wheels  were  locked  at  600  psi. 

2. 5. 2. 2 Braking  In  a Turn.  This  run  series  determines  the 
value  of  brake  line  pressure  at  which  two  wheels  on  the  same  axle 
lock  up  while  the  vehicle  is  executing  a constant  0.3-g  turn.  For 
this  vehicle,  the  inside  rear  wheel  was  locked  at  400  psi,  both  in- 
side wheels  were  locked  at  500  psi,  and  all  four  wheels  were  locked 
at  600  psi. 


2. 5. 2. 3 Turning  On  a Rough  Road.  For  this  run  series,  the 

vehicle  traverses  a bump  grid  while  in  a steady  0.4-g  turn.  Three 
grid  frequencies  are  simulated:  9,  11,  and  14  Hz. 

2. 5. 2.4  Trapezoidal  Steer.  In  this  run  series,  trapezoidal 
steers  of  4,  8,  12,  and  16°  of  normalized  steer  angle  were  used. 

For  this  vehicle,  28°  of  steering  wheel  angle  is  required  for  2°  of 
normalized  steer. 


2. 5. 2. 5  Sinusoidal  Steer.  In  this  run  series,  sinusoidal 
steers  with  a maximum  amplitude  of  4,  8,  12,  and  16°  of  normalized 
steer  angle  were  used.  For  this  vehicle,  28°  of  steering  wheel 
angle  is  required  for  2°  of  normalized  steer. 


2. 5. 2. 6  Drastic  Steer  and  Brake.  The  purpose  of  these  runs 
is  to  determine  vehicle  roll-over  tendency.  For  this  vehicle,  a 
peak  roll  angle  of  0.14  rad  and  a peak  roll  rate  of  0.75  rad/s 
were  achieved. 
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Fig.  2-1 1 Time  Histories  — Straight  Line  Braking  (p.  1) 
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PB  = 300  psi  Pb  = 400  psi  Pb  = 500  psi  PB  = 600  psi 


■S  -0,25- 


Fig.  2-1 1 Time  Histories  — Straight  Line  Braking  (p.  2) 
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P (rad/s1)  /3  (rad)  v (ft/s)  u (ft/s)  5SW  (rad)  r (rad/st)  Ay  (g)  Ax  (g) 


Fig.  2-12  Time  Histories  — Braking  in  a Turn  (p.  1) 
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Pg  - 300  psi  Pg  = 400  psi  PB  = 500  psi  Pg  = 600  psi 


Fig.  2-12  Time  Histories  — Braking  in  a Turn  (p.  2) 
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0 (rad/s)  p (rad)  v (ft/sj)  u (ft/s,)  5SW  (rad)  r (rad/5)  Ay  (g)  Ax  (g) 


N = 9 


N = 11 


N = 14 


Fig.  2-13  Time  Histories  — Turning  on  a Rough  Road  (p.  1) 
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Sr  (in.)  62  (in.)  5i  (in.) 


N - 9 N = 1 1 N = 14 


Fig.  2-13  Time  Histories  — Turning  on  a Rough  Road  (p.  2) 
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P (rad/s)  p (rad)  v (ft/s)  u (ft/s)  6SW  (rad)  r (rad/s)  Ay  (g)  Ax  (g) 


5SW  = 56°  5SW  = 112°  5sw  = 168°  5Sw=  223° 


Fig.  2-14  Time  Histories  — Trapezoidal  Steer  (p.  1) 
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Fig.  2-14  Time  Histories  — Trapezoidal  Steer  (p.  2) 
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(3  (rad/s)  0(rad)  v (ft/s)  u (ft/s)  5SW  (rad)  r (rad/s)  Ay  (g)  Ax  (g) 


Fig.  2-15  Time  Histories  — Sinusoidal  Steer  (p.  1) 
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u (ft/s)  5SW  (rad)  r (rad/s)  Ay  (g)  Ax  (g) 


BRKOFF  = BRKOFF  = BRKOFF  = 
0.90  s 0.95  s 1.00  s 


Fig.  2-16  Time  Histories  — Drastic  Steer  and  Brake  (p.  1) 
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Fig.  2-16  Time  Histories  — Drastic  Steer  and  Brake  (p.  2) 
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2.6  TIRE  DATA 


As  previously  stated,  the  current  IHVHP  tire/road  interface 
model  was  defined  by  Calspan  as  part  of  DOT  contract  HS-053-3-727 
(Ref.  6).  For  this  contract,  Calspan  tested  many  tires  at  their 
Tire  Research  Facility  (TIRF)  testing  complex  (Ref.  18).  As  a 
convenience  for  working  with  APL  and  using  the  IHVHP,  the  TIRF- 
associated  computer  was  programmed  to  process  tire  data  into  a 
format  directly  compatible  with  the  IHVHP  tire  model.  Therefore, 
very  little  effort  is  required  to  prepare  tire  data  for  input  on 
the  TIRF  machine.  For  tires  tested  on  other  tire  test  machines  or 
flatbed  testers,  APL  can  convert  the  data  for  IHVHP  use  with  the 
TIRF  computer  data  processing  program.  When  the  tire  test  data 
have  been  properly  formatted,  the  program  output  will  be  compatible 
with  the  IHVHP.  However,  data  preparation  for  the  latter  approach 
can  be  very  time  consuming.  A recent  tire  parameter  determination 
research  program  has  made  available  IHVHP- compatible  data  on  ap- 
proximately 400  tires  of  sizes  usually  found  on  passenger  cars  and 
light  trucks.  These  tire  data  along  with  documentation  of  the  re- 
search can  be  found  in  Ref.  19. 


2.6.1  Tire  Data  Validation 


A tire/road  interface  plotting  program  (Ref.  20)  was  devel- 
oped at  APL  to  validate  tire  model  data  used  as  input  to  the  ve- 
hicle simulation.  The  validation  approach  was  to  generate  families 
of  curves  of  desired  tire/road  interface  functions  for  chosen  sets 
of  conditions  that  could  be  correlated  with  data  obtained  from  tire 
tests.  Given  values  for  the  coefficients  and  parameters  of  the 
tire  model  equations,  the  program  calculates  the  tire  model  func- 
tions and  produces  a data  deck  compatible  with  the  input  require- 
ments of  a Calcomp  plotting  subprogram  (Ref.  21).  Tire/road  in- 


Ref.  18.  K.  D.  Bird  and  J.  F.  Martin,  "The  Calspan  Tire  Re- 
search Facility:  Design,  Development  and  Initial  Test  Results," 

SAE  Paper  730528,  May  1973. 

Ref.  19.  D.  J.  Schuring,  Tire  Parameter  Determination,  Final 
Report,  Contract  DOT  HS-4-00923,  Calspan  Corporation,  December  1975. 

Ref.  20.  R.  E.  Sienicki,  "Tire/Road  Interface  Plotting  Pro- 
gram User’s  Guide  and  Program  Documentation,"  APL/JHU  Memorandum 
BCE-T-0590 , December  1975. 

Ref.  21.  L.  Klein  and  N.  Rubinstein,  "General  Linear,  Semi- 
Log  and  Log-Log  Calcomp  Plot  Subroutine  (FORTRAN  IV),"  APL/JHU 
Memorandum  F1C (2)-75-U-026 , November  1975. 
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terface  graphs  are  then  generated  by  the  subprogram.  Included  in 
TIRF  data  from  Ref.  19  are  three  carpet  plots  for  each  tire:  (a) 

lateral  force  versus  slip  angle  at  various  loads,  (b)  lateral  force 
versus  slip  angle  at  various  camber  angles,  and  (c)  braking  force 
coefficient  versus  slip  ratio  at  various  loads.  The  same  types  of 
carpet  plots  are  generated  from  the  APL  plot  program  and  compared 
with  the  TIRF  plots  for  validation.  Representative  graphs  are  shown 
in  Appendix  F. 


2.7  IHVHP  INPUT  DATA 
2.7.1  Data  Deck  Description 


A general  input  data  deck  is  used  with  the  IHVHP.  The 
following  are  defined  in  the  data  deck: 

« Program  identification; 

® Default  output  variable  list  for  the  Track  OPTION; 

• Default  output  variable  list  for  the  Table  OPTION  for 
VHTP's  performed  in  the  multiple-run  mode; 

® Digital-to-analog  converter  variable  and  scale-factor 
assignments  input  as  pairs  of  digital  variable  and 
corresponding  scale  factor; 

9 Analog-to-digital  converter  variable  and  scale-factor 
assignments  input  as  pairs  of  digital  variable  and 
corresponding  scale  factor; 

® Initialization  of  non-integer  parameters  for  initial 
conditions ; 

® Initialization  of  integer  parameters  for  initial  condi- 
tions ; 

® Vehicle  simulated; 

® Front  and  rear  camber,  caster,  and  toe  functions  via 

coefficients  for  a fifth  order  polynomial  approximation; 

® Front  and  rear  brake  torques  as  pairs  of  brake  pressure 
in,  brake  torque  out  data  points; 

• Lateral  friction  coefficient  degradation  with  circum- 
ferential slip  as  pairs  of  percent  of  slip  in,  percent 
of  lateral  friction  coefficient  out  data  points; 
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• Wind  profile  data  as  pairs  of  distance  in,  wind  velocity 
out  data  points; 

9 Aerodynamic  force  and  moment  coefficients  as  a function 
of  aerodynamic  sideslip  angle  or  angle  of  attack  in, 
aerodynamic  coefficient  out  data  points; 

© Steer  profile  data  as  pairs  of  steer  time  in,  steer 
angle  out  data  points; 

9 Front  and  rear  spring  data  as  pairs  of  suspension  de- 
flection in,  spring  force  out  data  points; 

« Front  and  rear  shock  absorber  data  as  pairs  of  suspen- 
sion velocity  in,  shock  absorber  force  out  data  points; 

• PARAM  data  array  members  that  are  used  to  redefine 

VHTP  condition  inputs  as  sequential  numbers  representing 
the  PARAM  array  element  number  and  the  corresponding 
variable  value  for  the  initial  check  run  and  each  VHTP 
number  from  1 to  6;  and 

© Initial  values  of  individual  members  of  the  PARAM  ve- 
hicle descriptor  data  array  input  as  pairs  of  array 
element  number  and  initial  value. 

The  input  data  for  three  simulated  vehicles  that  are  repre- 
sentative of  the  IHVHP  suspension  types  are  presented  in  Appendix 
G,  along  with  a sample  for  each  vehicle  of  the  PARAM  table  that  is 
output  to  the  system  line  printer  prior  to  each  simulation  run. 

The  tables  provide  PARAM  value  documentation.  The  three  vehicles 
for  which  data  are  provided  are 

© VW  Campmobile,  independent  front  and  rear  suspension; 

® Dodge  Coronet,  independent  front,  with  solid  rear 
axle;  and 

« Winnebago  motor  home,  solid  front  and  rear  axles  with 
dual  rear  tires. 

2. 7. 1.1  Program  Identification.  The  first  data  card  iden- 
tifies the  APL  problem  number,  the  digital  computer  load  module, 
and  the  vehicle  simulated. 


2. 7. 1.2  Track  Output  Variables.  The  next  group  of  cards 
defines  the  initial  set  of  interactive  variables  to  be  output  when 
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the  Track  OPTION  is  enabled.  Fifty  variables  may  be  selected  on 
as  many  cards  as  required.  This  group  of  cards  is  terminated  by 
a blank  card.  The  list  may  be  altered  interactively  using  the 
Track  OPTION. 


2. 7. 1.3  Table  Output  Variables.  The  next  group  of  cards 
defines  the  variables  to  be  output  at  the  end  of  each  run  when  the 
multiple-run  execution  mode  is  enabled.  This  group  contains  seven 
cards,  one  for  each  VHTP  (the  first  six)  and  one  for  the  check  run. 
A maximum  of  nine  variables  can  be  specified  per  card.  If  the 
table  variables  are  respecified  interactively  via  the  Table  OPTION 
for  the  execution  of  a VHTP,  the  variables  in  this  data  group  will 
be  restored  when  that  VHTP  is  reselected. 

2. 7. 1.4  Digital-to-Analog  Variables.  This  group  of  cards 
specifies  which  variables  will  be  output  from  the  digital  to  the 
analog  computer  and  the  scale  factor  that  will  be  associated  with 
digital-to-analog  conversion.  Any  variable  may  be  output.  If  the 
output  variable  is  used  in  the  closed  loop  vehicle  model,  the  scale 
factor  must  be  consistent  with  the  use  of  the  variable  on  the  ana- 
log computer.  If  the  output  variable  is  used  strictly  for  strip 
chart  recorder  display  purposes,  the  scale  factor  can  take  any 
rational  value.  The  maximum  expected  value  of  the  variable  is  an 
appropriate  starting  value.  Either  the  variable,  the  scale  factor, 
or  both  may  be  reassigned  via  the  interactive  OPTION  DACA.  Forty- 
eight  cards  must  be  included,  one  for  each  digital-to-analog  output 
in  the  order  of  assignment  to  DAC’s  0 to  47.  Each  card  contains  a 
variable  name  followed  by  its  normalizing  scale  factor.  The  list 
is  terminated  by  the  character  string  ENDNODAC. 


2. 7. 1.5  Analog-to-Digital  Variables.  This  group  of  cards 
specifies  which  variables  will  be  input  from  the  analog  to  the 
digital  computer  and  the  scale  factor  that  will  be  associated  with 
analog-to-digital  conversion.  Any  variable  name  that  has  been 
specified  may  be  input.  The  scale  factor  must  be  consistent  with 
the  use  of  the  variable  on  the  analog  computer.  The  variable,  the 
scale  factor,  or  both  may  be  reassigned  via  the  interactive  OPTION 
ADCA.  A change  in  variable  implies  a wiring  change  on  the  analog 
patch  panel.  Thirty-eight  cards  must  be  included,  one  for  each 
analog-to-digital  input  in  the  order  of  assignment  to  ADC’s  0 to  37 
(only  38  of  the  48  ADC  channels  are  used  by  the  IHVHP).  Each  card 
contains  a variable  name  followed  by  its  analog  scale  factor.  The 
list  is  terminated  by  the  character  string  ENDNOADC. 


2 . 7 . 1 . 6 ) Non-Integer  Variable  Initialization.  The  next 
group  of  cards  allows  any  non-integer  initial  condition  or  param- 
eter that  has  been  specified  as  an  interactive  variable  to  be 
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assigned  an  initial  value.  The  format  is  a name  followed  by  the 
initial  value  with  a maximum  of  10  pairs  per  card.  Any  number  of 
cards  is  allowed,  and  the  input  is  terminated  by  a blank  card. 

2. 7.1. 7  Integer  Variable  Initialization.  The  next  group 
of  cards  allows  any  integer  parameter  that  has  been  specified  as 
an  interactive  variable  to  be  assigned  an  initial  value.  The  for- 
mat is  a name  followed  by  the  initial  value  with  a maximum  of  10 
pairs  per  card.  Any  number  of  cards  is  allowed,  and  the  input  is 
terminated  by  a blank  card. 


2. 7.1.8  Vehicle  Identification.  This  data  card  is  used 
to  document  the  vehicle  being  simulated.  Any  message  up  to  80 
characters  is  allowed. 


2. 7.1. 9  Camber,  Caster,  and  Toe  Functions.  The  next  six 
data  cards  define  the  front  and  rear  wheel  camber,  caster,  and  toe 
functions  in  degrees  for  wheel  displacement  (in.)  from  the  unloaded 
vehicle  suspension  equilibrium  position.  One  function  is  defined 
per  data  card,  which  contains  the  six  coefficients  required  to 
specify  a fifth  order  polynomial  approximation  to  the  appropriate 
function.  The  order  of  the  data  is  CO,  Cl,  ...,  C5.  CO  is  the 
value  of  the  function  (camber,  caster,  toe)  at  the  equilibrium 
suspension  position  of  the  unloaded  vehicle.  The  vehicle  simula- 
tion uses  the  right  front  and  rear  wheels  as  a reference  for  cam- 
ber and  toe  data.  The  sign  of  the  coefficients  for  the  left  front 
and  rear  wheels  is  changed  in  the  digital  program.  Data  for  these 
functions  for  the  representative  vehicles  are  presented  in  Appen- 
dix G. 


2.7.1.10  Brake  Torques.  The  next  group  of  data  cards  de- 
fines the  front  and  rear  brake  torque  functions.  The  function  is 
specified  as  pairs  of  data  points  with  one  pair  per  card,  a value 


of  brake  line  pressure  (lb/in  ) and  the  corresponding  value  of  the 
brake  torque  (lb-in.).  A group  of  cards  (2  to  19)  defining  each 
function  is  ended  by  a data  card  containing  the  number  99999.  A 
linear  interpolation  routine  is  used  to  obtain  torque  values  for 
brake  line  pressures  between  specified  data  values.  Conventionally, 
the  front  and  rear  brake  torque  funtions  are  identical,  and  brake 
proportioning  is  accomplished  using  PARAM  array  elements  238  to 
241. 


2.7.1.11  Side  Force  Shaping  Function.  The  next  group  of 
data  cards  defines  the  functional  relationship  between  the  side 
force  and  circumferential  slip.  Pairs  of  data  points  are  input 
with  one  pair  per  card,  as  percent  of  slip  and  the  corresponding 
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percent  of  possible  side  force  that  is  attained.  The  function 
data  (2  to  19  cards)  are  terminated  by  a card  containing  the  num- 
ber 99999.  Linear  interpolation  is  used  between  data  points  to 
obtain  intermediate  function  values. 


2.7.1.12  Wind  Profile.  The  next  group  of  data  cards  de- 
fines the  aerodynamic  wind  disturbance  profile.  Pairs  of  data 
points  are  input  as  tabular  functions  of  longitudinal  distance  to 
the  center  of  the  wind  disturbance  profile  and  cross-wind  velocity. 
The  function  is  input  as  pairs  of  data  points,  one  pair  per  card, 
with  a maximum  of  19  cards.  The  format  is  a distance  (in.)  fol- 
lowed by  the  wind  velocity  (in./s).  The  data  points  are  terminated 
by  a card  containing  99999.  A linear  interpolation  routine  is  used 
to  obtain  cross-wind  velocity  for  longitudinal  distance  between 
specified  data  points. 

2.7.1.13  Aerodynamic  Coefficients.  The  next  group  of  data 
cards  (39  maximum)  defines  the  aerodynamic  force  and  moment  coeffi- 
cients as  tabular  functions  of  the  aerodynamic  sideslip  angle.  The 
format  is  sideslip  angle  (rad)  followed  by  the  value  of  the  aero- 
dynamic coefficient.  The  input  order  of  the  functions  is  axial 
force  (C^) , side  force  (C^) , normal  force  (Cz),  roll  moment  (C^) , 

pitch  moment  (C  ) , and  yaw  moment  (C^) • The  data  array  is  termi- 
nated by  the  number  99999.  The  next  group  of  data  cards  defines 
the  increment  in  axial  force  coefficient  as  a tabular  function  of 
aerodynamic  angle  of  attack.  The  function  is  input  as  pairs  of 
data  points,  one  pair  per  card,  with  a maximum  of  39  cards.  The 
format  is  an  angle  of  attack  (rad)  followed  by  the  value  of  the 
aerodynamic  coefficients  (AC^) . The  function  data  cards  are  ter- 
minated by  the  number  99999.  A linear  interpolation  routine  is 
used  to  obtain  functional  values  for  sideslip  angles  or  angles  of 
attack  between  specified  data  values. 


2.7.1.14  Steer  Profile.  The  next  group  of  data  cards 
(19  maximum)  defines  the  functional  relationship  between  the  steer 
angle  (rad)  and  time  (s).  Pairs  of  data  points  are  input  as  time 
and  steer  angle.  The  data  are  terminated  by  a card  containing  the 
number  99999.  Linear  interpolation  is  used  to  obtain  functional 
values  between  specified  time  data  points. 


2.7.1.15  Spring  Functions.  The  next  groups  of  cards  de- 
fine the  front  and  rear  spring  functions  as  tabular  functions  of 
suspension  deflection  from  the  equilibrium  position.  Each  func- 
tion is  input  as  pairs  of  data  points,  one  pair  per  card,  with  a 
maximum  of  nine  cards.  The  format  is  a suspension  deflection 
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(in.)  followed  by  the  spring  force  (lb).  The  data  are  input  for 
the  range  from  full  compression  to  full  rebound.  The  input  order 
of  the  spring  forces  is  right  front,  left  front,  right  rear,  and 
left  rear.  Each  function’s  data  cards  are  terminated  by  the  num- 
ber 99999.  A linear  interpolation  routine  is  used  to  obtain  func- 
tion values  for  deflections  between  specified  data  values. 

The  spring  force  at  each  wheel  is  implemented  as  the  sum 
of  a linear  segment  generated  on  the  analog  computer  and  a digital 
supplement  that  is  the  difference  between  the  analog  value  and  the 
actual  spring  characteristic.  The  sign  convention  for  deflections 
from  equilibrium,  which  is  zero  (in.)  with  a corresponding  suspen- 
sion force  of  zero  (lb) , is  that 

• Compression  is  a negative  deflection  and  produces  a 
negative  suspension  force,  and 

« Rebound  is  a positive  deflection  and  produces  a posi- 
tive suspension  force. 

Spring  data  for  three  representative  vehicles  are  presented  in 
Appendix  G. 


2.7.1.16  Shock  Absorber  Functions.  The  next  group  of  data 
cards  defines  the  front  and  rear  shock  absorber  characteristics  as 
tabular  functions  of  suspension  velocity.  Each  function  is  input 
as  pairs  of  data  points,  one  pair  per  card,  with  a maximum  of  nine 
cards.  The  format  is  the  suspension  velocity  (in./s)  followed  by 
the  shock  absorber  force  (lb).  The  data  are  input  for  the  range 
from  full  compression  to  full  extension.  The  input  order  of  the 
shock  absorber  forces  is  right  front,  left  front,  right  rear,  and 
left  rear.  Each  function's  data  cards  are  terminated  by  the  num- 
ber 99999.  A linear  interpolation  routine  is  used  to  obtain  func- 
tion values  for  suspension  rates  between  specified  data. 

The  shock  absorber  force  at  each  wheel  is  implemented  as 
the  sum  of  a linear  segment  generated  on  the  analog  computer  and 
a digital  supplement  that  is  the  difference  between  the  analog 
value  and  the  actual  shock  absorber  characteristic.  The  sign  con- 
vention for  the  suspension  motion  from  equilibrium,  which  is  zero 
rate  (in./s)  and  a corresponding  zero  damping  force  (lb),  is 

• A negative  suspension  deflection  rate  (compression 
motion)  produces  a negative  shock  absorber  force,  and 

• A positive  suspension  deflection  rate  (rebound  motion) 
produces  a positive  shock  absorber  force. 
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Shock  absorber  data  for  three  representative  vehicles  are  presented 
in  Appendix  G. 


2.7.1.17.  VHTP  Initialization  Data.  The  next  group  of 
cards  allows  the  input  of  data  that  are  used  for  initialization 
of  the  simulation  for  performing  a specific  VHTP  maneuver.  Since 
the  data  are  input,  VHTP  conditions  can  easily  be  varied.  Twenty- 
seven  data  cards  are  required,  with  each  card  containing  a PARAM 
element  address  and  a value  for  the  variable  represented  by  that 
address  for  the  check  verification  run  and  each  VHTP  1 to  6,  in 
that  order.  The  PARAM  element  addresses  shown  in  the  data  lists 
are  required  for  VHTP  initialization.  However,  the  input  order  is 
not  fixed. 


2.7.1.18.  Vehicle  Descriptor  and  Tire  Data.  The  last 
group  of  cards  is  used  to  input  the  initial  values  of  variables 
that  are  elements  of  the  PARAM  data  array.  The  array  is  used  to 
input  all  vehicle  descriptor  and  tire  model  data.  Since  the  array 
is  also  used  for  purposes  other  than  data  input,  such  as  storing 
values  for  program  calculated  initial  conditions,  program  flow 
switch  values,  etc.,  all  PARAM  elements  need  not  be  initialized. 
The  definitions  of  all  PARAM  elements  are  given  in  Section  4 of 
Appendix  H.  The  subset  of  PARAM  elements  that  represents  vehicle 
descriptors  or  tire  model  coefficients  is  presented  in  Section  5 
of  Appendix  H.  Data  are  input  one  PARAM  element  per  card  by  in- 
dicating the  PARAM  element  address  followed  by  the  assigned  value. 


2.7.2.  Load-Dependent  Data 

Since  the  IHVHP  calculates  suspension  deflections  relative 
to  the  suspension  equilibrium  position  for  all  load  configurations, 
information  specifying  the  suspension  travel  from  the  unloaded  ve- 
hicle suspension  position  must  be  provided.  Of  particular  interest 
are  the  loaded  vehicle  configurations  for  driver  control  used  in 
VHTP's  1 through  3 and  for  automatic  control  used  in  VHTP’s  4 
through  6.  The  vehicle  parameters  that  are  load  dependent  and  their 
corresponding  PARAM  element  addresses  are  as  follows: 


Parameter 

PARAM  Address 

Parameter 

PARAM  Address 

MS 

1 

IX 

11 

ZF 

4 

IY 

12 

ZR 

5 

IZ 

13 

A 

6 

DELF 

92 

B 

7 

DELR 

93 
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Section  3 


CONCLUSIONS  AND  RECOMMENDATIONS 


The  Improved  Hybrid  Computer  Vehicle  Handling  Program 
(IHVHP)  has  demonstrated  realistic  dynamic  simulations  of  passenger 
vehicles  and  trucks  with  suspensions  ranging  from  four-wheel  inde- 
pendent to  solid  front  and  rear  axles.  The  performance  of  simula- 
tion runs,  especially  those  involving  the  six  Vehicle  Handling  Test 
Procedures  (VHTP's),  are  inexpensively  and  easily  performed.  In 
addition,  the  performance  measuring  vehicle  performance  comparison 
variables  (PCV's)  for  each  VHTP  are  provided. 

Although  good  correlation  between  the  IHVHP  and  full-scale 
test  data  has  been  achieved,  it  is  recommended  that  changes  in  all 
areas  of  the  model,  including  the  tire/road  interface  and  vehicle 
description,  be  given  serious  consideration  where  an  improvement 
in  correlation  could  result.  The  IHVHP  has  proved  to  be  a good 
simulation  that  is  easily  extended  to  meet  the  increasing  needs  of 
predicting  vehicle  behavior.  By  critically  reviewing  the  simula- 
tion with  each  use  and  making  improvements,  the  IHVHP  will  continue 
to  be  a successful  engineering  tool. 
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Appendix  A 


VEHICLE  MATHEMATICAL  MODEL 


1 . INTRODUCTION 

This  appendix  contains  the  vehicle  mathematical  model  that 
was  implemented  on  the  APL/JHU  hybrid  computer.  The  equation  num- 
bers associated  with  a particular  suspension,  axial,  or  tire  con- 
figuration will  include  a notation  from  the  following  legend: 

A.  Solid  front  axle 

B.  Solid  rear  axle 

C.  Independent  front  suspension 

D.  Independent  rear  suspension 

E.  Solid  front  and  rear  axles 

F.  Independent  front  suspension  and  solid  rear  axle 

G.  Independent  front  and  rear  suspensions 

H.  Independent  f ont  suspension  and  dual  tires  on  solid 

rear  axle 

I.  Solid  front  axle  and  dual  tires  on  solid  rear  axle 

Figure  A-l  is  a block  diagram  of  the  Improved  Hybrid  Vehicle 
Handling  Program  (IHVHP),  and  Figs.  A-2  and  A-3  are  analytical 
representations  of  the  vehicle  and  solid-rear-axle  models,  respec- 
tively. (The  reader  should  note  that  the  figures  are  repeated  here 
from  the  main  body  of  the  text  for  convenience.) 
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ANALOG  DIGITAL 
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Fig.  A-1  Hybrid  Simulation  Block  Diagram  of  the  IHVHP  Model 
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2.  SYSTEM  EQUATIONS 
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Equations  of  Motion 

Suspension  Forces 
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Wheel  Rotational  Equations 
Tire  Side  Force 

Velocities  of  Tire  Contact  Points 

Resultant  Moments  of  Solid  Front  Axle  and  Dual 
Tires  on  Solid  Rear  Axle 
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2 . 2 Equations  of  Motion  (10  degrees  of  freedom) 


The  equations  of  motion  of  the  sprung  and  unsprung  masses 
are  presented  below: 

• • 2 2 

(EM)  u + y2  q = (E  M)  (vr  - wq  - g sin  0)  + y^  (q  + r ) 


-y_pr-y,  q+ZF  +EF 
2 6 xu  xs 


(Z  M)  v - y2  p + r = (Z  M)  (wp  - ur  + g cos  0 sin  cjj) 
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1 2 n 6 yu  ys 


M w = M (uq  - vp  + g cos  0 cos  <f>)  - Z S.  + E F 
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3 x x xz  xz 
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J XZ  xz 
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(3) 

(4) 

(5) 
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= (wp  - ur  + g cos  6 sin  <J>)  + (1^  - I - y,_)  pq 
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2 . 3 Vehicle  Attitude  and  Position 

The  Euler  angles  and  X,  Y,  and  Z coordinates  in  fixed  space 
of  the  sprung  mass  are  computed  by  the  following  equations: 


/ 


4 = / [p  + (q  sin  <J>  + r cos  <f>)  tan  0]  dt  + <f> 


(0) 


(27) 
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0=1  (q  cos  <f>  - r sin  <J>)  dt  + 0 


(0) 


(28) 


A-  1 ] 


t 


[q  sin  <j>  + r cos  <{>)  sec  0]  dt  + (29) 


be  the  elements  of  the  3><3  transformation  matrix 

[A] , from  the  coordinate  system  fixed  in  the  vehicle  sprung  mass 
to  the  inertial  coordinate  system  according  to  the  rotational  se- 


quence \p,  0,  <j). 

a^  = cos  0 cos  ip  (30) 

a^  = “ cos  <p  sin  ip  + sin  (p  sin  0 cos  ^ (31) 

a^^  = sin  <P  sin  ^ + cos  c)>  sin  0 cos  ip  (32) 

a2^  = cos  0 sin  \p  (33) 

a22  = COS  ^ C0S  ^ + S^n  ^ S^n  0 s^n  ^ (34) 

a^^  = “ cos  ip  sin  <j>  + cos  <J>  sin  0 sin  ip  (35) 

a^^  = - sin  0 (36) 

a32  = COS  0 sin  ^ (37) 

a^^  - cos  0 cos  <f>  (38) 


The  position  of  the  sprung  mass  in  inertial  space  is 
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2 . 4 Suspension  Force 

The  suspension  force  includes  the  following  effects:  weight 

component,  coulomb  friction,  spring  force,  shock  absorber  viscous 
damping,  auxiliary  roll  stiffness,  and  antipitch  and  antiroll  forces. 

2.4.1  Solid  Front  Axle.  The  suspension  force  effective  at 
the  front  spring  location  can  be  expressed  as 


Si  FsWF  FlFi  " F2Fi  F3Fi 


+ F 


4Fi 


+ F 


APFi 


+ F 


ARFi 


(42) 


with  i = 1,  2 


where  the  individual  contributions  are  as  follows: 


Static  component  of  the  sprung  mass  weight: 


F 


= - M e 

sWF  2 (a  + b)  ss 


(43) 


Coulomb  friction: 


(44) 
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Suspension  force  due  to  spring  deflection  and  suspension  bump-stop 
impact : 


2Fi 


XL, . + F . 
1 l BSi 


and 


BSi 


F^Si>’ 


(45) 


(46) 


where  F(£  ) is  a digital  function  that  is  the  difference  between 

u 1 

the  linear  analog  value  and  the  actual  front  spring  characteristic. 

The  suspension  deflection  measured  at  the  spring  location 
from  the  position  of  static  equilibrium  at  no-load  condition  is 


’Si 


Ci  + CFIN 


Viscous  damping  force: 

F = K r + F 
3Fi  Si  ^i  SABSi 


(47) 


(48) 


and 


FSABSi 


F (£.)  , 


(49) 


where  F(£_^)  is  a digital  function  that  is  the  difference  between 

the  linear  analog  value  and  the  actual  front  shock  absorber 
characteristic. 

Suspension  force  due  to  auxiliary  roll  stiffness: 


F4F1  * 


Vf 


SF 


(50) 
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Antipitch  force: 


FAPFi  (PF0  + PF1  C1  + PF2  Ci  ^ Fxui 


Antiroll  force: 


FARFi  ( + ^1  + ^2  Ci  ) Fyui 


(51) 


(52) 


For  these  expressions,  the  suspension  deflections  relative 
to  the  vehicle  from  the  position  of  static  equilibrium,  measured 
at  the  right  (i  = 1)  and  left  (i  = 2)  spring  locations  of  the  front 
axle,  respectively,  are  evaluated  as 


and 


- - (-1) 


T 

i SF 


- (-D 


T 

i SF 


(53) 


(54) 


while  the  suspension  deflection  of  the  center  of  the  front  wheel 
of  the  front  axle  is 


(-1)1  / +F 


(55) 


or 


+ ("D1 


(56) 


2.4.2  Solid  Rear  Axle.  For  the  rear  suspension,  the  sus- 
pension force  effective  at  the  rear  spring  location  can  be  written 
as 


Si  FsWR  FlRi  F2Ri  F3Ri  + F4Ri  + FAPRi  + FARRi  (57) 
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with  i = 3,  4,* 

where  the  individual  contributions  are  as  follows: 
Static  component  of  the  sprung  mass  weight: 

sWR  2 (a  + b)  sg 
Coulomb  friction: 

FlRi  = CRi  Sgn  h 


(58) 


(59) 


Suspension  force  due  to  spring  deflection  and  suspension  bump-stop 
impact  is 


F2Ri  ^i  Ci  + FBSi 

and 


(60) 


FBSi  F(CSi)  * 


(61) 


where  F(£  ) is  a digital  function  that  is  the  difference  between 

J 1 

the  linear  analog  value  and  the  actual  rear  spring  characteristic. 

The  suspension  deflection  measured  at  the  spring  location 
from  the  position  of  static  equilibrium  at  no-load  condition  is 


’Si 


?i  + CRIN 


Viscous  damping  force: 

F3Ri  = Ksi  ^i  + FSABSi 


(62) 


(63) 
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and 


FSABSi  F(Ci)  ’ 


(64) 


where  F(c^)  is  a digital  function  that  is  the  difference  between 

the  linear  analog  value  and  the  actual  rear  shock  absorber  charac- 
teristic. 

Suspension  force  due  to  auxiliary  roll  stiffness: 


F4M  - <-» 


i Vr 


SR 


Antipitch  force: 


(65) 


F = (P 
APRi  v RO 


+ P 


R1 


r 1 + p 
^i  R2 


<i2> 


xux 


Antiroll  force: 


(66) 


FARRi  f 1) 


(RR0  + ®R1 


?I  + RR2 


yui 


(67) 


For  these  expressions,  the  suspension  deflections  relative 
to  the  vehicle  from  the  position  of  static  equilibrium,  measured 
at  the  right  (i  = 3)  and  left  (i  = 4)  spring  locations  of  the  rear 
axle,  respectively,  are  evaluated  as 


'i  ■ sr  - (-F)1  Tjr  *R 


and 


• • 


r - x ( n1  TSr  i 

Ci  - 6R  ■ (_1)  1“  *R  ’ 


(68) 


(69) 


while  the  suspension  deflection  of  the  center  of  the  rear  wheel  of 
the  rear  axle  is 


(-u1  J *R 


(70) 
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or 


+ (-D1 


2.4.3  Independent  Front  Suspension.  The  suspension  forces 

S.  are  effective  at  wheel  i: 

1 

Si  = FsWF  " FlFi  " F2Fi  " F3Fi  + F4Fi  + FAPFi  + FARFi 
with  i = 1,  2. 

Static  component  of  the  sprung  mass  weight: 

sWF  2 (a  + b)  s8 
Coulomb  friction: 

FlFi  = CFi  Sgn  5i 

The  suspension  force  F2F^  produced  by  deflection  of  the  spring  is 
F2Fi  ^i  6i  + FBSi 

and 


FBSi 


F(SSi) 


9 


where  F(^g-j_)  is  a digital  function  that  is  the  difference  between 
the  linear  analog  value  and  the  actual  spring  characteristic. 


(71) 


(72) 


(73) 


(74) 


(75) 


(76) 
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5 denotes  the  suspension  deflection  from  the  position  of 

D X 

static  equilibrium  at  no-load  condition  as 


6 


Si 


6.  + 
x 


6fin 


(77) 


Viscous  damping  force: 

F = K c + F 
3Fi  Si  x SABSi 


(78) 


and 


F 


SABSi 


F(?±)  , 


(79) 


where  F(^)  is  a digital  function  that  is  the  difference  between 

the  linear  analog  value  and  the  actual  front  shock  absorber  charac- 
teristic. 

Suspension  force  due  to  auxiliary  roll  stiffness: 


F4Fi  * ™ 


i rf  (si  - V 


Antipitch  force: 


(80) 


F = (P 
APFi  v FO 


+ P 


FI 


Si  + PF2 


xux 


(81) 


where  F . is  the  component  of  the  tire  force  on  wheel  i in  the 
xux 

x direction  in  the  vehicle  axis  system. 

Antiroll  force: 


FARFi  ( ^ 


(RF0  + *F1  Si  + ^2  «i  > F 


yux 


(82) 
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where  F is  the  component  of  the  tire  force  on  wheel  i along 
the  vehicle  y axis. 

2.4.4  Independent  Rear  Suspension.  Similarly,  the  suspen- 
sion force  effective  at  wheel  i can  be  expressed  as 


S. 

1 


sWR 


- F 


IRi 


- F 


2Ri 


F3Ri  + F4Ri  + FAPRi  + FARRi 


(83) 


with  i = 3,  4, 

where  the  individual  contributions  are  as  follows: 
Static  component  of  the  sprung  mass  weight: 


F 


sWR 


a 

2 (a  + b) 


Msg 


(84) 


Coulomb  friction: 


FlRi  = CRi  Sgn  Si 


(85) 


Suspension  force  due  to  spring  deflection  and  suspension  bump-stop 
impact  is 


2Ri 


*ri 


<s.  + F„„. 
l BSi 


(86) 


and 


FBSi  F(<SSi)  ’ 


(87) 


where  F(6  ) is  a digital  function  that  is  the  difference  between 

j X 

the  linear  analog  value  and  the  actual  rear  spring  characteristic. 

denotes  the  suspension  deflection  from  the  position  of 
static  equilibrium  at  no-load  condition  as 


6 


Si 


6.  + 

l 


6rin  * 


(88) 
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Viscous  damping  force: 


F3Ri  KSi  Ci  + FSABSi 

and 


FSABSi 


F(C.)  , 


where  F(C^)  is  a digital  function  that  is  the  difference  between 

the  linear  analog  value  and  the  actual  rear  shock  sbsorber  charac- 
teristic. 


Suspension  force  due  to  auxiliary  roll  stiffness: 

i *R  (S3  - V 


F4Ri  " 


Antipitch  force: 


R 


F = (P 
APRi  v RO 


+ P 


R1 


4i  + PR2 


5i2) 


XU1 


Antiroll  force: 


FARR1  - (-F)i  (RR0  + *81  si  «R2  h2)  Fyui 
2 . 5 Wheel  Orientations 

The  orientations  of  the  wheels  with  respect  to  the  sprung 
mass  are  defined  by  the  following  equations: 

Camber  angles  at  wheel  i: 

4>1  = *F  + A^l 
*2  = + A<t>2 


(89) 

(90) 


(91) 

(92) 

(93) 


(94-A) 

(95-A) 
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(96— B) 


53 


4 


(97-B) 


C 6S1  + A<j>1  sgn  FS1 

r 


♦SAI  (1  ' COS  V 


i=0 


+ KOTF  ^XFl 


(94-C) 


CiF  6S2  + A*2  Sgn  FS2 


*SA2  (1  " COS  V 


i=0 


+ KOTF  ^XF2 


(95— C) 


E 


i=0 


CiR  6S3  + KOTR  ^XR3 


(96-D) 


E 


1=0 


CiR  6S4  + KOTR  ^4 


(97-D) 


Steer  angles  at  wheel  i: 


*1  = 6FW1  - *F  + A*1 


(98-A) 
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(99-A) 


^2  6FW2  Ss  *F  + ^2 

S " *RS  *R  + KSR  MZR3  + ^R  FS3  (10°-B) 

\ = \s\  + KSR  MZR4  + ^R  FS4  (101"B) 

5 

*1  - W + X DiF  4 + A*1  (98-C) 

1=0 

5 

*2  ‘ 6FW2  - X DiF  4 + A*2  ("-C) 

1=0 

5 

*3=  X DiR  6S3  + KSR  MZR3  + KlR  FS3  <10°-D) 

1=0 

5 

*4  ' - X D»  4 + KSR  MZR4  + Ir  FS4  (101-D) 

1=0 

Caster  angles  of  the  front  wheels: 

5 

0S1  - X eif  4 + A91  (102) 


1=0 


5 


9S2  - £ EiF  SS2  + A62 
i=0 

2 . 6 Resultant  Forces  and  Moments 

The  resultant  tire  and  aerodynamic  forces  and  moments  re- 
quired for  the  equations  of  motion  are  given  below: 

Tire  forces: 


= F 

+ 

F 

+ 

F 

XUl 

Rxui 

Cxui 

Sxui 

= F 

+ 

F 

+ 

F 

yui 

Ryui 

Cyui 

Syui 

' = F 

+ 

F 

+ 

F 

zui 

Rzui 

Czui 

Szui 

where 

F = -F  a 

Rxui  Ri  31 

F = -F  a 

Ryui  Ri  32 

F = -F  a 

Rzui  Ri  33 

and 

F is  the  tire  force  normal  to  the  ground. 
Ki 

Furthermore: 


F 

Cxui 

FCi 

(all 

cos 

a 4 

ci 

+ 

a21 

cos 

6ci> 

. = 
Cyui 

FCi 

(a12 

cos 

01  4 

ci 

+ 

a22 

cos 

Bci> 

F 

Czui 

FCi 

(a13 

cos 

a . 

Cl 

+ 

a23 

cos 

eci> 

(103) 


(104) 

(105) 

(106) 

(107) 

(108) 

(109) 

(110) 
(111) 
(112) 
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(113) 


F . = F (-a,,  cos  3 . + a01  cos  a .) 
Sxui  Si  11  ci  21  ci 


FSyui  " FSi  ('a12  cos  6ci  + a22  COS  “ci) 


Fc  . = F COS  ^ cos  a •) 

Szui  Si  13  ci  23  ci 


Furthermore : 


COS  aywi  = all  (_sin  + ai2  (cos  cos 


+ a10  (sin  <p  . cos  ip . ) 
13  l i 


cos  3 . = aon  (-sin  \p.)  + a00  (cos  <f> . cos  ip.) 

ywi  21  i 22  i i 


+ a00  (sin  <j> . cos  ip.) 
23  l l 


cos  y . = a01  (-sin  ip.)  + a«„  (cos  <J> . cos  ijO 

ywi  31  l 32  i i 


+ a00  (sin  cp.  cos  ip.) 
33  l l 


and 


cos  3 


COS  Ci  . = 

Ci 


ywi 


f 2 2 

V cos  3 . + cos  a 

ywi  ywi 


-cos  a 


cos  3 


ywi 


ci 


2 2 

\ cos  3 . + cos  a . 

ywi  ywi 


(114) 

(115) 


(116) 


(117) 


(118) 


(119) 


(120) 
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(121) 


4 

E F = Y]  F . 

XU  ' ' xux 

i=l 

4 

E F = Y)  F . 

yu  ■fc— ' yui 

i=l 

4 

E F = ^ F . 

i=l 


Aerodynamic  forces: 


Cross-wind  disturbance: 


u = u - v sin 
r yw 


v = v - v cos  ^ 
r yw 


w = w 
r 


p = (p  - 0)  cos  ^ + w 0)  — 
xw  zw  u 

r 


£ 

u 

r 


q = (q  4-  to  siniJj-m  d>) 
xw  zw 


r 


(r 


w ) 


zw 


J_ 

u 

r 


V 


cw 


V 


+ v + w 


(122) 


(123) 


(124) 

(125) 

(126) 

(127) 

(128) 

(129) 

(130) 
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a = tan 


x = 


sm 


-1  / Vr 


V 


CW 


-3.14  £ x £ 3.14 


1 „ 2 
qa  2 Pa  VCW 


Z F = (Cy  + AC  ) q S 
xs  X a a t 


Z F = (C„  + C p + C r)  q 

ys  Y y„  a f 


Z F = (C  + C a + C q)  q S 
zs  Z z z at 

a q 


Tire  moments: 


J V = (s2  - S1)  ¥ + (s4  - S3)  Hr 


(Fyul  + Fyu2}  (zF  + V 


(Fyu3  + Fyu4}  (zR  + V 


4>u 


<S2  - 

si>  r + (s4 

- V 

F , 

(z_  + 6 + h.. 

COS  Y,  , 

yul 

v F 1 1 

'hi 

Fyu2 

(zF  + 62  + h2 

cos  yh2 

SR 


^Fyu3  + Fyu4)  (zR  + V + 2 ^Fi 

i=l 


(131) 

(132) 

(133) 

(134) 

(135) 

(136) 


(137-E) 


(137-F) 
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T T 

E V - <s2  - V - + (s4  - V r 


' Fyul  (ZF  + S1  + hl  C0S  Yhl  - V 


Fyu2  (zF  + S2  + h2  cos  Yh2  HF(2 


Fyu3  (zR  + S3  + h3  COS  Yh3  ' V 


Fyu4  (ZR  + S4  + h4  cos  Yh4  ‘ V 


+ 


y]  ^XFi  + 


1=1 


i=3 


Z N0u  = (S1  + S2)a  ' (S3  + S4)b 


+ Fxul  (ZF  + 6F  + r *F  + hl  COS  Yhl} 


+ Fxu2  (ZF  + 6F  2 ^F  + h2  COS  Yh2) 


+ Fxu3  (zR  + 6R  + / *R  + h3  COS  Yh3} 


+ Fxu4  (ZR  + 5R  " / ^R  + h4  C0S  Yh4> 


E N0u  = (S1  + S2)a  ‘ (S3  + S4)b  + Fxul  (ZF  + 61  + hl  C0S  Yhl] 


(137-G) 


(138-E) 
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+ Fxu2  (ZF  + S2  + h2  cos  Yh2> 


+ Fxu3  (zR  + 6R  + T *F  + h3  C0S  Yh3) 


+ Fxu4  (ZR  + SR  - T *F  + h4  cos  Yh4> 


(138-F) 


Z N6u  = (S1  + S2)a  ‘ (S3  + S4)b  + Fxul  <ZF  + S1  + hl  C0S  Yhl) 


+ Fxu2  <ZF  + S2  + h2  COS  Yh2>  + Fxu3  (ZR  + S3  + h3  C0S  Yh3> 


+ Fxu4  <ZR  + S4  + h4  COS  Yh4}  (138'G) 

T T 

E N = F (-7^-  + h cos  3,,  ) - F 0 (^p-  - h0  cos  3 0) 

4>F  zul  2 1 hi  zu2  2 2 h2 

T T 

‘ Fyul  (/  ^F  + hl  COS  Yhl}  " Fyu2  (~  / *F  + h2  COS  Yh2} 


SF 

+ (Si  - s2)  -f-  + 


£ 


(139-A) 


i=l 


T T 

E N,.,  = F _ + h„  cos  3U0)  ~ F . - h.  cos  3,  , ) 

<f)R  zu3  2 3 h3  zu4  2 4 h4 


T T 

' Fyu3  (r  *R  + h3  COS  Yh3)  ’ Fyu4  (~  2^  *R  + h4  C0S  Yh4) 


+ (s0  - 


S ) -§*  + 

V 2 


^ Lj  ^XRi 


(140-B) 


i=3 
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E N = F (a  + h cos  a ) + F (a  + h0  cos  a _) 
ijm  yul  1 hi  yu2  2 h2 


- F . (b  - h„  cos  a,  „)  - F . (b  - h.  cos  a,  .) 
yu3  3 h3  yu4  4 h4 

T T 

+ Fxu2  </  - h2  cos  Bh2)  ' Fxul  </  + hl  cos  Si) 

+ Fxu4  (/  ' h4  C0S  6h4>  - Fxu3  (T-  + h3  COS  Bh3> 


Z MZFi+  Z 


M, 


ZRi 


i=l 


i=3 


where 


cos  a,  . = a1 1 cos  a_ . + a01  cos  Bn . + aon  cos  y_ . 

hi  11  Ri  21  Ri  31  Ri 


cos  3,  . = a,  „ cos  a . + a00  cos  3n . + a00  cos  yn . 

hi  12  Ri  22  Ri  32  Ri 


C0S  Yhi  * a13  C0S  “Ri  + a23  C0S  BRi  + a33  C0S  YRi 


and 


cos  oi  . = 
Ri 


-cos  y . cos  a 
ywi ywi 


V2  2 

cos  a . + cos  3 . 

ywi  ywi 


-cos  y . cos  3 
„ ywi  ywi 

cos  3„  . = 


Ri 


V 


2 2 
cos  a . + cos  3 

ywi  ywi 


cos  y 


Ri 


V 


2 2 
cos  a . + cos  3 
ywi  ywi 

2 2 
cos  a . + cos  3 . 

ywi  ywi 


(141) 

(142) 

(143) 

(144) 

(145) 

(146) 

(147) 
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Aerodynamic  moments: 


dCG  a 2 


C'  = — — £ + — c 

L £ 1 £ LY 


l d„_, 

C«  = -JL  C _ _CG  c 

M £ M £ Z £ “X 


(0) 


c»  = -JL  c + c 

N £ N £ Y 


Z %s  = (Ci  + C£  P + C£  r)  qaSf 
P r 


E N 


0s 


(C*  +C  a+C  q)qS^£ 
M m m a f 

a q 


E N = (C'T  + C p + C r)  q S_  £ 
ii>s  N n n a f 

p r 


(148) 

(149) 

(150) 

(151) 

(152) 

(153) 

(154) 


2 . 7 Radial  Tire  Force  and  Rolling  Radius 

The  radial  tire  forces  and  the  rolling  radii  of  the  tires 
are  computed  by  the  following  equations: 


F'  = K_.  (R  - h.) 
Ri  Tx  w l 

where 


h. 

l 

= A. 

X 

for 

h. 

X 

R 

w 

h. 

= R 

for 

h. 

> R 

x w 1 w 


(155) 


(156) 

(157) 


A-  3 1 


and 


A.  = 

x 


V 


2 2 
cos  a . + cos  3 

m zhI  (z  _ z ) 

2 ^ 2 0 ^ Si  i; 

cos  a . + cos  3 

ywi  ywx 


T T 

Z1  = z + a31  a + a32  — + a33  (zp  + y + ^F^ 


T T 

Z2  = Z + a31  a “ a32  2~  + a33  ^ZF  “ ~ ^F  + 


T T 

z3  = z - a31  b + a32  — + a33  (zR  + — <{>R  + 6r) 


T T 

Z4  = Z “ a31  b " a32  ~2~  + a33  ^ZR  ~2~  + V 


Z1  = z + a3l  a + a32  — + a33  (zp  + 61) 


Z2  Z + a31  a a32  2 + a33  ^ZF  + ‘V 


Z3  Z a31  b + a32  2 + a33  (zR  + ‘V 


Z4  Z a31  b a32  2 + a33  (zR  + V 


and  the  initial  tire  loading  and  orientation  are  as  shown  below: 


(0) 


[hl(0)  ~ h3(0)]  + [zF  ZR] 
(a  + b) 


(158) 


(159-A) 

(160-A) 

(161-B) 

(162-B) 


(159-C) 


(160-C) 


(161-D) 

(162-D) 


(163) 
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hl(0)  h2(0)  R„  2Kt1 


%F 


+ 


rrr  Ms 


u r>  8 

*3(0)  = h4(0)  = Rw  “ 2K 


T3 


+ 


1TTT  Ms 


(0) 


b[hl(0)  + ZF]  + ath3(0)  + ZR] 

(a  + b) 


+ Z 


bias 


Wheel  lift-off  indication  is  provided  by 


ZMXi 


(R  - h.) 

w i 


i = 1,  2,  3,  4 


where 


(164) 


(165) 


(166) 


(167) 


Z>iru..  > 0 wheel  i in  contact  with  tire-terrain  patch, 

MXi  r ’ 

Z*™-.  ^ 0 wheel  i not  in  contact  with  tire-terrain 

MXi 

patch . 


2.8  Tire  Circumferential  Force 


The  circumferential  tire  forces  for  both  driving  and  brak- 
ing are  defined  by  the  following  equation: 


Pi 


where 


p = p i / ±_ 

Ri  Ri  vcos  <f> 


cGi 


> - FSi  tan  ^cGi 


(168) 

(169) 
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2.9  Circumferential  Friction  Coefficients 


The  circumferential  friction  coefficient  equations  are 
shown  below: 


y!  = m0 . (SLIP).  + yn.  for  (SLIP).  > ST 

x 2x  'x  Ox  x i 


= m . (SLIP) . for  (SLIP) . S SI.  . 
lx  x x i 


Computation  of  the  slopes  for  the  y! 
the  following  equations: 


curve  is  performed  by 


Front  wheels: 


ySF  = (ySF  + S1F  PRi>  lC0S  (Bi) 


i - 1.  2 


li  — p 4-  P p 
mPF  BFl  BF2  Ri 


SN.  = (SN)sQ/(SN)t 


"li  = (if:)  (1-0  - 57.3  Bc  |B±  + e:|)  SN±  for  ^ ^ SN. 


£ SNi 


SF 

for  m..  . < -r-z—  SN. 
lx  SI.  x 
x 


m 


2i 


ySF  ~ yFF  (1'°  - 57'3  Bc 

(1.0  - SI.) 


SNi  for  mn  * sir  SNi 


= 0.0 


SF 

for  mn  " s r SNi 


(170) 

(171) 

(172) 

(173) 

(174) 

(175) 
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(176) 


yli 


ySF  SNi 


y0i 


yli  " m2i 


(177) 


Rear  wheels : 


ySR  ^ySR  + S1R  FRi^ 

|cos  (Bi)| 

i = 3,  4 

(178) 

11  — p -L  p "p 

yPR  BR1  BR2  Ri 

(179) 

SN.  = (SN)SQ/(SN)T 

(180) 

m,  . = 


PR 


li  \ SI. 
\ 1 


(1.0  - 57.3  B | 6.  + 6! |)  SN.  for 
c 1 1 x 


SR 


SN, 


li  SI . i 

l 


_SR 

SI. 

l 


SN. 

x 


£or  “li  < si 


SR 


SN. 


(181) 


m2i 


“sr-“pr  g-o-57.3Bc  |e.  +B;|) 
(1.0  - SI.) 

X 


SN . for  m, . ^ 


SR 


li  - SI.  SNi 


0.0 

M CD 

for  mli  * SI.  SNi 

X 

(182) 

“li  - “sR  SNi 

(183) 

“oi  “ “li  ' ”21 

(184) 
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aerSirnei  iy 


> 


■fXTtf.ri 
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: __  Tneel  lcca;i:r.a-.  .mar:,  ms  - isqrees  : : :::^ccn 

Hie  -vixeel  rititiinal  muarrms  required  ra  :cnmti  meel 
slm  ere  rreserxrea  lelnw 





sr 


^ V,  _ _ 

Z r%E  3Z  ‘33 


(196) 


T<4  ■ XD  ( -r)  TQDR  + XBA  TQB4 
2 . 12  Brake  and  Drive  Torques 

The  drive  torques  generated  to  maintain  a constant  velocity 
are  computed  by 

" KTQ  (VC  - u)  ' £or  £ % 

max 

= TQp  , otherwise 
max 


where  V is  the  desired  velocity. 

Values  of  1000  lb-in. /in. /s  and  6000  lb-in.  were  assigned 
to  Krpq  and  TQ^  , respectively.  When  braking  is  investigated, 

ITlclX 

the  drive  torque  is  0 and  the  brake  torque  magnitudes  are  deter- 
mined from  input  data  functions. 


TQB1  = TQB2  = FF(PFL)>  lb“in- 

TQb3  = ^64  = FR(PFL>>  lb"in* 

where  PFL  is  an  input  value  for  brake-line  pressure. 
2.13  Tire  Side  Force 


The  nonlinear  tire  side  forces  are  computed  using  the  fol- 
lowing equations: 


Fst  “ FRi  Uyi  ««i> 


i - 1.  2 


pyl  8(e±)|  - uSF  | since.) I SN1 


F sgn  g(8 .) 


(197) 


(198) 

(199) 


(200) 
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i = 3,  4 


FSi  = FRi  I Ki  «(Bi> 


V 8(Bi)l  ' ySR  lSin(BPl  SNi 


I sgn  g(Bi) 


(201) 


2. 14  Tire  Side  Force  Friction  Coefficient 

The  side  force  coefficient  of  friction  is  defined  below: 


V = (B1F  FRi  + B2F  cvi  + B3F  + ®4F  FRi  > SNi  1 = F.-2 


(202) 


V = (B1R  FRi  + B2R  Cvl  + B3R  + B4R  FRi  > SNi  1 = 3>  4 
and 


2 4.  2 

GI  VGi 


(202) 


(204) 


2 . 15  Velocities  of  the  Tire  Contact  Points 

The  velocities  of  the  tire  contact  points  along  the  vehicle 
axes  are  computed  by  the  following  equations: 


T T 

u!  = u " r + (zF  + 6F  + V'  q 


(205-A) 


T T 

u2  = u + T~  r + (ZF  + 6F  “ T~  V q 


(206-A) 


T T 

R , . . . , R , v 

u3  = U - — r + (zR  + «R  + — tR)  q 


(207-B) 


Tr  , , Tr  . \ 

U4  = U + 2“  r + (Zr  + 6r  " T V q 


(208-B) 


= u - — r + (zp  + 6-^  q 


(205-C) 
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tf 

u2  = u + — r + (zp  + 62)  q (206-C) 

Tr 

u3  = u - — r + (zR  + 63)  q (207-D) 

TR 

= u + — r + (zR  + 6^)  q (208-D) 

T 

v1  = v + ar  - (zR  + 6p)p  - (y  (f>F  + hp  cos  Yhl>  (P  + ip)  (209-A) 

T 

v2  = v + ar  - (zp  + 6p)p  - (-  y ^F  + h2  cos  Yh2)(P  + ip)  (210-A) 

T 

V3  = v - br  - (zR  + 6R)p  - (y  cj)R  + h3  cos  Yh3)  (p  + iR)  (211-B) 

T 

v4  = v - br  - (zR  + 6R)p  - (-  y <j>R  + cos  Yh4)(p  + iR)  (212-B) 

Vp  = v + ar  - (zF  + 6p  + hp  cos  yhl)  p (209-C) 

v2  = v + ar  - (Zp  + 62  + h2  cos  y 2)  p (210-C) 

V3  = v - br  - (zR  + 63  + II3  cos  Y^3)p  (211-D) 

v.  = v - br  - (z_,  + 6.  + h.  cos  yu/)p  (212-D) 

4 R 4 4 h4 

T 

wl  = w + 6p  - aq  - (-  y - hp  cos  0hl>  (p  + ip)  (213-A) 
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,tf 


w2  = w + «F  - aq  - - h2  cos  Bh2)(p  + $F) 


• R 

= w + 6R  + hq  - (-  h,  cos  SUQ)(p  + <t>D) 


2 “3  ™ h3y 


R 


w4  = w + 6R  + bq  - (—  - h4  cos  3h4)(p  + O 


R' 


= w - aq  + (—  + cos  3hl)p  + 6^ 


w2  = w - aq  - (—  - h2  cos  3h2)p  + 


R 

= w + bq  + (—  + cos  3h3)p  + 6^ 


R 

w4  = w + bq  - (—  - h4  cos  3h4)p  + 64  . 


The  wheel  velocities  in  the  ground  plane  are  computed  by 


uGi  = ui  C0S  6XGi  ' Wi  Sln  6XGi 


v_.  = v,  cos  <f>  - w.  sin  <£  i = 1,2, 3, 4 

Gi  i l 


where 


COS  eXGi  = 


cos  8 cos  (j> 


J . 2 . . 2 

Arcos  <p  + sm  ij)  sm  0 


Sln  0XGi  _ 


-sin  0 


V2  2 2 

cos  cj)  + sin  4>  sin  0 


(214-A) 

(215-B) 

(216-B) 

(213-C) 

(214-C) 

(215-D) 

(216-D) 

(217) 

(218) 

(219) 

(220) 
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2 . 16  Combined  Slip  Angle  and  Camber  Shaping  Function 


The  dimensionless  side  force  shaping  function  for  slip  angle 
and  camber  is  as  follows: 


g(6.)  =61-|B1  |B.|  +^B.3  if  Ie.|  <3 


= zr  if  |B±I  ^3  i = 1,  2,  3,  4 


For 


FRi  * “tAf' 


i = 1,  2 


?,  - AlF  FR1  ('R1  ~ -V-  ' VA2F  + 

i Aor,  y . F ii 

2F  yi  Ri 


, = A2F  A3F  (AAF  FRi^  FRi  ^CGi 
1 A4F^A1F  FRi  ^Ri  ” A2F')  " AQF  A2F  ^ 


If 


FRi  > A^TF  A2F ' 


i = 1,  2 


A1T,  AOTn  Afi  (Afi  - 1)  - Aot, 

6.  = 1F  2F  TF  ,TF (6.  + B!) 

1 yyi  FRi  1 1 

, = A2F  A3F  AQTF  (A4F  ~ AflTF  A2F}  ^CGi 
1 A4F[A1F  A2F  AfiTF  (AQTF  " F)  " A0f’ 


For 


F . ^ Afi  A_  i 
Ri  TR  2R 


i = 3,  4 


7f  _ A1R  FRi  (FRi  A2R}  A0R  A2R  , 

1 A~T7  F (6i  + V 

2R  yi  Ri 


6,  = A2R  A3R  (A4R  FRi^  FRi  ^CGi 

1 A4R^A1R  FRi  (FRi  " A2R^  " A0R  A2R^ 


(221) 


(222) 


(223) 


(224) 

(225) 


(226) 


(227) 
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If 


FRi  > A"tR  A2R ' 


i = 3,  4 


B A1R  A2R  ASr  (AQTR  1}  A0R 

3i  “ y . F_.  (6i  + V 

yi  Ri 


3! 


A2R  A3R  ASr  (A4R  A^TR  A2R^  ^CGi 
1 A4R[A1R  A2R  AQTR  (AfiTR  l)  A0R^ 


2.17  Wheel  Slip  Angle 


3^  = tan 


-1  / VGi 


Gi 


- sgn  u 


where 


♦i 


. -1 
sm 


-(a.,..  cos  a . + a01  cos  3 .) 

11 ywi  21 ywi 


2 2 
cos  0 W cos  a . + cos  3 

ywi  ywi 


2 . 18  Wheel  Camber  with  Respect  to  the  Road 

The  camber  angles  of  the  wheels  measured  with  respect  to 
the  road  are  given  by 


<$>  = sin  1 (cos  y .)  + K F + Acj)  i = 1,  2 

CGi  ywi  CF  Si  i 


♦CGi  = sin'X  (C°S  Vi’  + KCF  FSi 


i - 1.  2 


♦CGI  = Sin"1  (C°S  Vi>  + KCR  FSi 


i = 3,  4 


(228) 


(229) 


(230) 


(231) 


(232-A) 

(232-C) 

(233-B,D) 
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2 . 19  Wheel  Slip  Shaping  Function 


The  dimensionless  side  force  shaping  function  for  circum- 
ferential slip  is  empirically  derived. 


F. 

1 


(SLIP) 


= input  table 


(234) 


F. 

l 

(SLIP) t (%) 

0.00 

00-0 

0.01 

05.0 

0.03 

10.0 

0.07 

15.0 

0.17 

20.0 

0.35 

30.0 

0.54 

40.0 

0.81 

60.0 

0.93 

80.0 

1.00 

100.0 

2.20  Tire  Moments 


The  tire-road  reaction  moments  acting  about  the  kingpins 
are  computed  by  the  following  equations: 


^Ti  (ySAi  hi  ^SOi^ 


(F  . - F 0„.)  cos  ip . 

xui  zui  Si  i 


+ (F  . + F . <j>  ) sin  \p . 

yui  zui  SAi  l 


- PT.  cos  \p . 

l l 


(F  . + F . 4>0  * - ) cos  ip  . 
yui  zui  SAi  l 


- (F  . - F . 0 .)  sin  ip . 
xui  zui  si  1 


i = 1,  2 (235) 
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where 


5 

^SAl  = ^SAOl  + S CiF  6S1  (236) 

i=l 

5 

*SA2  = <j)SA02  “2  C._  - 6S2  • (237) 

xF 

i=l 

The  tire  aligning  torques  are  defined  as 

MZFi  = (AF1  FRi  + ^2  ^Si^  FSi  + ^3  FRi(^CGi^  sgn  ^CGi  (238) 

i = 1,  2 

MZRi  = (AR1  FRi  + Ar2  lFSil)  FSi  + \3  FRi(  I ^ W (239) 

i = 3,  A . 

The  tire  overturning  moments  are  defined  as 

MXFi  = °F0  + ^°F1  + °F2^CGi^  FSi  FRi  + °F3  ^CGi  FRi  (24°) 

i = 1,  2 

^XRi  ” °R0  + (°R1  + °R2^CGi^  FSi  FRi  + °R3  ^CGi  FRi  (241) 

i = 3,  4 • 

2.21  Steering  Equations  (3  degrees  of  freedom) 

The  steering  equations  are  presented  on  the  next  page. 
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(242) 


(r  + 6FWi)  IFW 


- H.  + MTi  - M„„  . + M, 


i FWi 


SSi  ZFi 

i = 1,  2 


MCR  yCR  CFCR 


T M M 

„ • . P . SSI  , SS2 

C y„  H 1- 1 

CR  JCR  a aT  , a „ 

p LI  LZ 


where  CFCR  = f(yCR) 


Conditions : 


p G 


(K  [ 
(sc[ 


T = N„  K „ / 6„it  - ^CR 


SW  G 


~r sgn  6sw  - ng 


if 


- N 


CR 


SW  G a. 


SP 


otherwise  T = 0. 
P 


M„„ . = K„T . 
SSi  SLi 


if 


FWi 


__CR 

aLi 


£ . 
pi 

2~  s8n 


FWi 


otherwise  M„„.  = 0. 

SSi 

2.22  Longitudinal  and  Lateral  Acceleration 

The  longitudinal  and  lateral  accelerations  of  the  sprung 
mass  are  computed  by  the  following  equations: 


= (u  - vr  + wq)/g 
Ay  = (v  + ru  - wp)/g  . 


(243) 


(244) 

(245) 

(246) 

(247) 

(248) 

(249) 
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2.23  Dual  Tires  on  Solid  Rear  Axle 


and 


2.23.1  Equations  of  Motion 


MuR  W + b MuR  q + MuR  6R 


2 2 

= MuR  [uq  - vp  + bpr  + (zR  + 6R) (p  + q ) 


+ g cos  0 cos  <f>]  + 2 (Fzu3  + Fzu4)  + S3  + S4 


(FR3  + FR4>  - KT3  (Ew  + Z3DE) 


+ KT4  (Ew  + 


2.23.2  Suspension  Forces 


APRi 


(PR0  + PR1  + PR2  (Fxui  + '»(!«)> 

i = 3,  4 


FARRi  (RR0  + *R1  + *R2  Ci  ) (Fyui  + Fyu(i+2)) 

i = 3,  4 


(T  + T \ 

IR  OR  L 

2 \ 


i = 3,  4 


2.23.3  Wheel  Orientation 


M 

^3  = KRS  ^R  + KSR  2 + fs3 


M, 


= Kdc  K + K 


ZR4 


4 RS  tR  SR  2 


+ ^R  FS4 


(250-H) 


(251) 


(252) 


(253) 


(254) 


(255) 

(256) 
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2.23.4  Resultant  Forces  and  Moments 


Tire  forces: 


F = -F  d>  + F„JTT,  sin  + F_.TT.  cos  . 
yui  iRID  ^ CilD  yi  SiID  ri 

i = 3,  4 


Fyui  FiROD  ^ + FCiOD  Sln  ^(i-2)  + FSiOD  C°S  ^ (i-2 ) 

i = 5 , 6 


F . = F 6 + F cos  ip.  - F sin  ip . 
xui  iRID  CilD  i SiID  l 


i = 3,  4 


Fxui  FiROD  6 + FCiOD  COS  ^(i-2)  FSiOD  sin  ^(i-2) 


i = 5,  6 


Aligning  moments : 

MZiRID  ~ ^\l  FiRID  + \2  ^SilD^  FSiId 

+ ^R3  FiRID  ^CGi^  i = 3,  4 

MZiROD  “ ^1  FiROD  + ^2  ^SiOD^  FSiOD 

+ \3  FiROD  ^CG..  i = 5,  6 

(i-2) 

M = M -f-  M 

ZRi  ZiRID  Z(i+2)R0D 

i = 3,  4 


(257) 


(258) 


(259) 


(260) 


(261) 


(262) 


(263) 
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Overturning  moments: 


^XiRID  ^°R1  + °R2  I ^CGi I ^ FSiID  FiRID 


+ 0 d)  F 

R3  ^CGi  iRID 


i = 3,  4 


^iROD  ^°R1  + °R2  ^CGU-2)^  FSiID  FiRID 


+ °R3  ^CG(i-2)  FiRID 


i = 5,  6 


^Ri  ^SiiRID  + ( i+2  ) ROD 


i = 3,  4 


Suspension  and  tire  moments: 


Z N = F (a  + h..  cos  a ) + F (a  + h0  cos  a,  ~) 
ijm  yul  1 hi  yu2  2 h2 


- (F  + F ) (b  - hQ  cos  a ) 
yu3  yu5  3 h3 


' <Fyu4  + Fyu6)(b  " h4  C0S  ah4> 

T T 

+ Fxu2  (2  h2  COS  3h2)  " Fxul  (2~  + hl  COS  3hl) 


T T 

TR  TR 

+ Fxu4  <—  - h4  C0S  Bh4>  ' Fxu3  + h3  “S  Bh3) 

T T 

OR  OR 

+ Fxu6  (~T  - h4  COS  Bh4)  ' Fxu5  (~  + h3  C0S  Bh3) 


+ 


Z MZFi+  Z 


M, 


ZRi 


i=l 


i=3 


(264) 


(265) 


(266) 


(267) 
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T T 

F CD 

z - (s2  - V r + (S4  - S3>  — 


" Fyul  (ZF  + 61  + hl  COS  Yhl  HFC) 


■ Fyu2  (zF  + 62  + h2  COS  Yh2  HFC} 


- (Fyu3  + Fyu4  + Fyu5  + Fyu6>  (zR  + V 


+ 


£ 

i=l 


M 


XFi 


(268-H) 


E N0u  = (S1  + S2}  a " (S3  + V b 


+ Fxul  (ZF  + 61  + hl  COS  Yhl} 


+ Fxu2  (ZF  + 62  + h2  COS  Yh2} 


+ F _ (zn  + 6 - ZOTT,  + 


IR 


xu 3 v R R 3ID  2 


+ F (z_,  + 6^  - Z 


IR 


xu4  R R 4 ID  2 R 


O 


+ Fxu5  (ZR  + 6R  Z50D  + 2 ^R^ 


+ F , (z„  + t - Z 


OR 


xu6  R R 60D  2 


V 


(269-H) 
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SR 

1 V - (s3  - V — + 2 Fzu3  (IOIR  + Z3DE  V 

T 

TR 

2 Fzu4  ^TOIR  " Z4DE  ” Fyu3  ^_Z3ID  + ~2~  ^R^ 


- F . (-Z 


IR 


yu4  4ID  2 R 


OR 

Fyu5  ('_Z50D  + ~T~  ^R^ 


- F , (-Z 


OR 


40 


yu6  60D  2 R 


M. 


XRi 


i=3 


2.23.5  Radial  Tire  Force  and  Rolling  Radius 


F3RID  KT3  (Rw  + Z3ID) 


(Rw  + Z3ID}  > ° 


= 0 


(Rw  + Z3ID}  * ° 


F4RID  KT4  (Rw  + Z4ID) 


(Rw  + Z4ID)  > ° 


= 0 


(Rw  + Z4ID)  * ° 


F5R0D  KT3  (Rw  + Z50D) 


(Rw  + Z50D>  > ° 


= 0 


(Rw  + Z50D}  * ° 


(270) 


(271) 


(272) 


(273) 
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F6R0D  KT4  (Rw  + Z60D) 


(R  + Z ) > 0 
w 60D 


= 0 


(Rw  + Z60D>  £ 0 


(274) 


T + T 
IR  OR 


OIR 


(275) 


T - T 
IR  OR 


IOR 


Z3DE  Z a31  b + a32  TOIR  + a33  (zR  + TOIR  ^R  + V 


(276) 

(277) 


Z4DE  Z a31  b a32  TOIR  + a33  (zR  TOIR  ^R  + V 


Z3ID  Z3DE  + TIOR  ^ + V 


(278) 

(279) 


Z4ID  Z4DE  TIOR  ((f>  + ‘V 


Z50D  Z3DE  TIOR  (<J>  + ^R^ 


Z60D  Z4DE  + TIOR  ^ + ^R^ 


(280) 

(281) 

(282) 


where 


h3(0)  h4(0)  Rw  4Kt3  [Mur  + (a  + b}  MS] 


(283) 


2.23.6  Tire  Circumferential  Force 


F = -u*  F 

CilD  ilD  iRID 

F = — u * F 

CiOD  MiOD  iROD 


i = 3,  4 (284) 

i = 5,  6 (285) 
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2.23.7  Circumferential  Friction  Coefficient 


yiID  mli  SiID 


for  S.Trk  £ SI. 
llD  x 


= m0 . S + y_ . 
2i  iID  Oi 


for  S.TT_  > SI. 
iID  1 


(286) 


i = 3,  4 


yiOD  ml(i-2)  SiID 


for  S . ^ SI . . 

iID  (i-2) 


m2(i-2)  SiID  + y0 (i-2)  for  SiID  > SI(i-2) 


(287) 


i = 5 , 6 


yyiID  (B1R  FiRID  + B2R  °vi  + B3R 


+ B4R  FiRID  > SNi 


(288) 


i = 3,  4 


yyiOD  ^B 1R  FiROD  + B2R  Cv(i-2)  + B3R 


+ B4R  FiROD  ^ SN(i-2) 


(289) 


i = 5 , 6 


2.23.8  Wheel  Slip 


(SLIP)  = 1 


for  C.  > 1 
i 


= s. 


for  -1  :£  £ . ^ 1 
i 


= -1 


for  C < -1 


(290) 
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where 


5 = 1 + - 

i u 


w Z 
i iDE 


G1  COS  "'i  + vGi  Sln  *i 


i - 3,  4 


(291) 


SiID  - 1 


= € 


= -1 


for  > 1 


for  -1  ^ ^ 1 


for  K.  < -1 
i 


e. 

i 


= i + 


co . Z 
i ilD 


Up-i  Tn  COS 


SiOD 


K. 


x 


1 

for 

h 

e. 

for 

-1 

-i 

for 

C. 

X 

W (i-2 ) ZiOD 

UGiOD  COS  *(1-2)  + vGiOD  sln 


> 1 

£ c £ 1 
< -1 


(i-2) 


i = 5,  6 


UG3ID  U3ID  + 0W3ID 
UG4ID  = U4ID  + 0W4ID 


(292) 

(293) 


(294) 


(295) 


(296) 

(297) 
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UG50D 

U50D  + 0W5OD 

(298) 

UG60D 

U60D  + 0W6OD 

(299) 

VG3ID 

V3ID  “ ^W3ID 

(300) 

VG4ID 

= V4ID  - +W4ID 

(301) 

VG50D 

V50D  * *l,50D 

(302) 

VG60D 

V60D  " ';,W60D 

(303) 

U3ID  = 

u3  “ TIOR  r 

(304) 

U4ID  = 

u4  + TXOR  r 

(305) 

U50D  = 

u3  + TIOR  r 

(306) 

U60D 

u4  - TIOR  r 

(307) 

V3ID 

v - br  - zRp  + Z3ID  (p  + iR) 

(308) 

V4ID 

v - br  - zRp  + Z4ID  (p  + iR) 

(309) 

V50D  = 

v - br  - zRp  + Z50D  (p  + iR) 

(310) 

V60D 

v - br  - zRp  + Z60D  (p  + }R) 

(311) 

W3ID  = 

w3  + tior  (p  + V 

(312) 

W4ID  = 

W4  - TIOR  (p  + *R) 

(313) 
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(314) 


Analog: 


w = w — T (p  + d>  ) 
50D  3 IOR  VR' 


W60D  = w4  + TIOR  (P  + V 


(315) 


2.23.9  Wheel  Rotational  Equations 


(IWR  + i TDR  AER2)  “3  + TDR  “4 


' 2<FC3  Z3DE>  + T(>3 


(IWR  + 4 IDR  ARR  ) “4  + (4  IDR  ARR  ^ “3 


(316) 


= 2(FC4  Z4DE>  + TQ4 


F = -u  * F 
C3  3 R3 


F = -u'  F 
C4  y4  R4 


(317) 

(318) 

(319) 


2.23.10  Tire  Side  Force 


SilD 


RID  {lyyiID  g(6i^  [lyyiID  g(6i)  I 
| sin  (6)|  SN  ] F } sgn  g(S.) 

oK  1X1  1 


F 

SiOD 


i = 3,  4 

k 


(320) 


(lyylOD  g(B(i-2))  I ^pyiOD  8(6(i-2)J 

|sln  (6(l-2))l  SN(l-2)]  Fl-2}  sgn  g(I(l-2)) 

i = 5 , 6 


(321) 
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2.23.11  Velocities  of  Tire  Contact  Points 


u3  U TOIR  r + ZR  q 


u4  " U + TOIR  r + ZR  q 


u5  “ u ‘ TOIR  r + ZR  q 


u6  “ U + TOIR  r + ZR  q 


v3  = v - br  - [zR  - Z3DE]  p + Z3DE  4>R 


v4  v br  ^ZR  Z4DE^  P + Z4DE  ^R 


v5  = v - br  - [zR  - Z3DE]  p + Z3DE  *R 


v6  - v - br  - [zR  - Z4DE]  p + Z4[)E  4>R 


w3  = w + b,  + 6R  + (p  + *R)  Tqir 


w4  - w + bq  + «R  - (p  + 4>R)  Toir 


w5  = w + bq  + «R  + (p  + +R>  Tojr 


w6  = w + bq  + SR  - (p  + *R)  Tqir 


Wheel  velocities  in  the  ground  plane: 


u_, . = u.  + 0w, 
Gi  1 i 


VGi  " Vi  ” 4Wi 


i = 3,  4,  5,  6 


(322) 

(323) 

(324) 
(325_ 

(326) 

(327) 

(328) 

(329) 

(330) 

(331) 

(332) 

(333) 

(334) 

(335) 
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2.24  Resultant  Moments  of  Solid  Front  Axle  and  Dual  Tires  on 
Solid  Rear  Axle 

E N4,U  - (s2  - V + (S4  - V -f 


(Fyul  + Fyu2^  (zF  + V 


(Fyu3  + Fyu4  + Fyu5  + Fyu6)  (zR  + V 


Z N6u  = (Sj^  + S2)  a - (S3  + S4)  b 


+ Fxul  (ZF  + SF  + 2“  ♦f  + hl  COS  Yhl> 


+ Fxu2  (zF  + SF  - T +F  + h2  COS  Yh2> 


T "R 

+ Fxu3  (ZR  + 6R  + 1"  - Z3ID> 


TP 

+ Fxu4  (ZR  + SR  - — *R  ' Z4ID) 


OR 

+ Fxu5  (zR  + 6R  + ~2"~  ^R  " Z5ID) 


+ Fxu6  (ZR  + SR  - “f  *R 


Z6ID) 


3.  NOTATION  AND  LIST  OF  SYMBOLS 
3.1  Notation 

The  time  derivative  of  a variable  is  indicated  by  a dot 
over  the  symbol  for  the  variable,  e.g., 


• -22 
a = da/dt,  a = d a/dt 


(336-1) 


(337-1) 
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Special  symbols  for  mathematical  operations  are 


I  a | = absolute  value  of  a 
sgn  a = algebraic  sign  of  a . 


The  following  subscript  notation  is  used: 

i = wheel  identification  number;  1 = right  front, 

2  = left  front,  3 = right  rear,  4 = left  rear, 

5 = right  rear  outside,  6 = left  rear  outside 

j = identification  of  vehicle  end;  j = F,  R for  the 
front  and  the  rear,  respectively. 

s = sprung  mass 

u = unsprung  mass 

F = front,  or  front  axle 

R = rear,  or  rear  axle 

The  technical  dimension  system  is  employed  with  the  funda- 
mental units  of  lb  (force),  in.  (length),  and  s (time). 

3 . 2 List  of  Symbols 

3.2.1  Variables 

A , A = Longitudinal  and  lateral  accelerations, 

X V ^ 

3  respectively,  of  the  sprung  mass  (g) 

a..  = Elements  of  the  3x3  transformation 

matrix  relating  the  orientation  of  the 
vehicle  fixed  axis  system  to  the  iner- 
tial frame  of  reference. 

C , C , C = Aerodynamic  moment  coefficients,  given 
^ as  tabular  functions  of  x for  a = 0 

C . = Resultant  velocity  of  the  contact 
V1  point  of  wheel  i in  the  ground  plane, 
(in. / s) 

C , C , C = Aerodynamic  force  coefficients,  given 
^ as  tabular  functions  of  x for  a = 0 
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FlFi’  FlRi 
F2Fi’  F2Ri 

F3Fi’  F3Ri 
F4Fi’  F4Ri 

FAPFi’  FAPRi 

F , F 
ARFi  ARRi 

FBSi 

FCi 

FCiID’  FCiOD 

F F F 

Cxui’  Cyui’  Czui 


Horizontal  distance  between  aerody- 
namic center  and  sprung  mass  center 
of  gravity  (in.) 

Coulomb  damping  force  in  front  and 
rear  suspensions,  respectively  (lb) 

Suspension  force  produced  by  deflec- 
tion of  springs  and  bump  stops  in 
front  and  rear  suspensions,  respec- 
tively (lb) 

Viscous  damping  force  in  front  and 
rear  suspensions,  respectively  (lb) 

Suspension  force  produced  by  auxiliary 
roll  stiffness  in  front  and  rear  sus- 
pensions, respectively  (lb) 

Antipitch  force  in  front  and  rear  sus- 
pensions, respectively  (lb) 

Antiroll  force  in  front  and  rear  sus- 
pensions, respectively  (lb) 

Suspension  force  component  which  is 
the  difference  between  analog  value 
and  actual  spring  characteristic  at 
wheel  i (lb) 

Tire  circumferential  force  at  wheel  i 
(lb) 

Dual  tire  circumferential  force  at 
rear  inside  and  outside  wheels,  respec- 
tively (lb) 

Components  of  the  circumferential  force 
for  tire  i resolved  along  the  vehicle 
axes  (lb) 


FF,  FR  = Front  and  rear  brake  torque  curves 

that  are  input  as  functions  of  brake 
line  pressure  (lb-in.) 

F.[(SLIP).]  = Nondimens ional  tire  side-force  shap- 
ing function  versus  longitudinal  slip 
at  wheel  i 
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F. F._._  = Dual  tire  radial  force  at  rear  inside 
lRID  iROD  , . , , , ...  . 

and  outside  wheel,  respectively  (lb) 


F F 

Rxui’  Ryui* 


F = Tire  normal  force  to  ground  at  wheel  i 

F'  = Tire  radial  force  at  wheel  i (lb) 

Ri 

FRzui  = Components  the  radial  force  for  tire 
i resolved  along  the  vehicle  axes  (lb) 


(lb) 


FSABSi  = Suspension  force  component  which  is  the 
difference  between  analog  value  and 
actual  shock  absorber  characteristic  at 
wheel  i (lb) 

F = Tire  side  force  at  wheel  i (lb) 

FSiID’  FSiOD  = Dua-*-  t:*-re  side  force  at  rear  inside 

and  outside  wheels,  respectively  (lb) 


F , F = Front  and  rear  static  force  component 

o Wr  oWK  . _ , / \ 

of  the  sprung  mass  (lb) 


F F F 

Sxui’  Syui’  Szui 


Components  of  the  side  force  for  tire 
i resolved  along  the  vehicle  axes  (lb) 


F . , F . , F . 
xui  yui  zui 


Tire  force  components  at  wheel  i 
along  the  sprung  mass  x,  y,  and  z 
axes,  respectively  (lb) 


E F , E F , l F = Components  of  the  resultant  of  aero- 
xs  ys  zs  dynamic  forces  that  act  directly  on 

the  sprung  mass,  along  the  sprung 
mass  x,  y,  and  z axes,  respectively 
(lb) 

Components  of  the  resultant  of  forces 
that  act  on  the  unsprung  masses, 
along  the  sprung  mass  x,  y,  and  z 
axes,  respectively  (lb) 

g(3”i)  = Nondimensional  tire  side  force  shap- 
ing function  for  combined  slip  angle 
and  camber  angle  at  wheel  i 

Rolling  radius  of  wheel  i (in.) 

Moment  of  inertia  of  unsprung  mass 
(lb-in.- s^) 


E F 


xu 


E F 


yu' 


E F 


zu 
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I’  = 

xz 

Product  of  inertia  of  unsprung  mass 
(lb-in.-  s^) 

lx  2i 

= Slope  of  straight-line  segments  ap- 
proximating circumferential  friction 
coefficient  at  wheel  i 

Mon.  = 
SSi 

= Torque  applied  to  front  wheel  i by 
the  steering  system  connecting  rod 
(lb- in. ) 

MTi  ' 

= Moment  acting  at  front  wheel  i about 
the  kingpin  axis  due  to  tire-road  con- 
tact forces  (lb~in.) 

MXFi’  ^StRi 

= Tire  overturning  moment  at  wheel  i, 
front  and  rear  wheels,  respectively 
(lb-in. ) 

^iRID’  MXiROD  ' 

= Dual  tire  overturning  moment  at  rear 
inside  and  outside  wheel,  respectively 
(lb -in. ) 

M__  . , M__  . 
ZFi  ZRi 

= Tire  aligning  moment  at  wheel  i, 
front  and  rear  wheels,  respectively 
( lb  -in . ) 

M M 

ZiRID’  ZiROD 

= Dual  tire  aligning  moment  at  rear  in- 
side and  outside  wheel,  respectively 
(lb)-in. ) 

E V E V 

= Rolling  moment  acting  on  the  front  and 
rear  axles,  respectively  (lb-in.) 

z V J Nes>  J \s  ' 

= Components  of  the  resultant  moment  of 
aerodynamic  forces  that  act  directly 
on  the  sprung  mass,  about  the  sprung 
mass  x,  y,  and  z axes,  respectively 
(lb-in . ) 

I H.  , IS,  , I *.  ' 

<pu  0U 

= Components  of  the  resultant  moment  of 
forces  that  act  on  the  unsprung  masses, 
about  the  sprung  mass  x,  y,  and  z axes, 
respectively  (lb-in.) 

• • • 

p»  q»  r»  p»  q»  r : 

= Scalar  components  of  angular  accelera- 
tion and  velocity  of  the  sprung  mass, 
taken  about  the  sprung  mass  x,  y,  and 
z axes,  respectively  (rad/s^,  rad/s) 
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p,  q,  r = Dimensionless  components  of  angular 
velocity  of  vehicle  relative  to  wind 
in  vehicle-fixed  axes 

2 

= Brake  line  pressure  (lb /in.  ) 

2 

q = Dynamic  pressure  (lb/in.  ) 

SL 

S.  = Total  suspension  force  at  wheel  i, 

effective  at  the  wheel  for  independent 
suspensions  and  at  the  spring  location 
for  the  solid  front/rear  axle  (lb) 

(SLIP)^  = Longitudinal  slip  ratio  at  wheel  i 

^iOD  = longitudinal  slip  ratio  at  dual  rear 

inside  and  outside  wheel,  respectively 

Pitman  torque  at  the  steering  gear  box 
(lb-in. ) 

Brake  torque  at  wheel  i (lb -in.) 

Drive  torque  (lb-in.) 

Maximum  drive  torque  (lb-in) 

Scaler  components  of  linear  acceleration 
and  velocity  of  the  sprung  mass,  taken 
along  the  sprung  mass  x,  y,  and  z axes, 
respectively  (in./s^,  in./s) 

u.,  v_L , w = Velocity  components  of  the  contact 

point  of  wheel  i along  the  vehicle- 
fixed  axes  (in./s) 

UiID’  UiOD  = forward  velocity  component  of  the  con- 
tact point  of  dual  rear  inside  and  out- 
side wheel,  respectively,  along  the 
vehicle-fixed  axes  (in./s) 

u , v , wr  = Components  of  vehicle  velocity  rela- 
tive to  wind  in  vehicle-fixed  axes 
(in. /s) 

u^  = Forward  velocity  of  the  contact  point 
of  wheel  i in  the  ground  plane 
(in. /s) 


T = 
P 


tqd  - 


t%max 

• ® • 

U,  V,  W,  U,  V,  W = 
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u , u = Forward  velocity  of  the  contact  point 

of  dual  rear  inside  and  outside  wheel, 
respectively,  in  the  ground  plane 
(in. /s) 


V = Magnitude  of  vehicle  velocity  relative 
to  wind  (in. /s) 

v^  = Lateral  velocity  of  the  contact  point 
of  wheel  i in  the  ground  plane 
(in. /s) 

VGiID’  VGiOD  = Latera^  velocity  of  the  contact  point 

of  dual  rear  inside  and  outside  wheel, 

respectively,  in  the  ground  plane 
(in. /s) 

v(TT^,  v..^  = Lateral  velocity  component  of  the  con- 
ilD  lOD  ^ * , , . j 

tact  point  of  dual  rear  inside  and 

outside  wheel,  respectively,  along 

the  vehicle-fixed  axes  (in./s) 


w^^,  W^Q£,  = Downward  velocity  component  of  the 

contact  point  of  dual  rear  inside  and 
outside  wheel,  respectively,  along 
the  vehicle-fixed  axes  (in./s) 

x,  y,  z = Coordinates  of  a point  relative  to 
the  vehicle-fixed  coordinate  axis 
system  (in.) 


X,  Y,  Z = Coordinates  of  the  center  of  gravity 
of  the  sprung  mass  relative  to  the 
space-fixed  coordinate  axis  system  (in.) 


Linear  acceleration,  velocity,  and 
displacement  of  the  steering  sys- 
tem connecting  rod  (in./s^,  in./s,  in.) 


Z.  = Coordinate  of  individual  wheel  center 
above  the  road  surface  (in.) 


Z.TT_,  Z.^_  = Inertial  position  of  the  rear  dual  m- 
llD  lOD  . , , . , , 

side  and  outside  wheel  center,  respec- 
tively (in.) 

Z . = Wheel  contact/lift-off  indicator 


A- 6 4 


z „ = 

si 

: Input  function  to  wheel  center  i 
which  represents  elevation  change  in 
reference  surface  (initially  equal  to 
zero)  (in.) 

Z3DE’  Z4DE 

: Inertial  position  of  a single  equiva- 
lent wheel  center  replacing  the  right 
and  left  pair  of  rear  dual  wheel  cen- 
ters, respectively  (in.) 

cos  a „ , cos  3 . » cos  y . = 

Cl  Cl  Cl 

: Direction  cosines  of  the  line  of 
intersection  of  the  wheel  plane  i 
and  the  ground  plane  (Note:  cos  y 

= 0 since  the  ground  plane  is  as- 
sumed horizontal) 

cos  a,  . , cos  3,  . , cos  y,  . = 
hi  hi  hi 

: Direction  cosines  of  the  tire  radial 
force  relative  to  the  vehicle  axis 
system 

cos  aRi , cos  3Ri,  cos  yRi  = 

: Direction  cosines  of  the  tire  radial 
force  relative  to  the  inertial  ref- 
erence 

cos  a . , cos  3 . , = 

ywi  ywi 

cos  y 

ywi 

= Direction  cosines  of  a line  perpen- 
dicular to  tire  i in  the  inertial 
reference 

a = 

= Aerodynamic  angle  of  attack  (rad) 

3 ^ 

= Vehicle  body  angle  of  sideslip  (rad) 

3.  * 

i 

= Slip  angle  at  wheel  i (rad) 

3! 

i 

= "Equivalent"  slip  angle  produced  by 
camber  effects  at  wheel  i (rad) 

F. 

i 

= Nondimensional  slip  angle  variable 
for  wheel  i 

9 ' 

= Inertial  terms  used  in  the  equations 
of  motion 

V *i*  Si  ' 

= Suspension  acceleration,  velocity, 
and  deflection  relative  to  the 
vehicle  from  the  position  of  static 
equilibrium,  measured  at  the  center 
of  wheel  i (in./s^,  in./s,  in.) 
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6 , <$  . , 6 . = Angular  acceleration,  velocity,  and 

x W IL  f Wl  r wl 

displacement  of  front  wheel  i pro- 
duced by  the  steering  system  (rad/s^, 
rad/s,  rad) 

Suspension  acceleration,  velocity, 
and  deflection  relative  to  the  ve- 
hicle from  the  position  of  static 
equilibrium  at  the  center  of  the 
solid  front  axle  (in./s^,  in./s,  in.) 

Suspension  acceleration,  velocity, 
and  deflection  relative  to  the  ve- 
hicle from  the  position  of  static 
equilibrium  at  the  center  of  the 
solid  rear  axle  (in./s^,  in./s,  in.) 

6^  = Suspension  deflection  relative  to  the 
vehicle,  measured  at  the  center  of 
wheel  i from  the  position  of  static 
equilibrium  at  curb  (no-load)  condi- 
tion (in.) 

6 = Steering  wheel  displacement  (rad) 

o w 

AC^.  = Aerodynamic  increment  in  axial  force 
coefficient,  given  as  tabular  func- 
tion of  a 

A.  = Distance  between  the  wheel  center  and 
ground  contact  point  (in.) 

Suspension  velocity  and  deflection 
relative  to  the  vehicle  from  the  po- 
sition of  static  equilibrium,  measured 
at  the  spring  location  i (in./s,  in.) 

= Suspension  deflection  relative  to  the 
vehicle,  measured  at  the  spring  loca- 
tion from  the  position  of  static  equi- 
librium at  curb  (no-load)  condition 
(in.) 

= Deflection  of  the  center  of  wheel  i 
(solid  front/rear  axle)  relative  to 
the  vehicle  from  the  position  of 
static  equilibrium  (in.) 


A- 6 6 


9g^  = Caster  angle  of  front  wheel  i rela- 
tive to  the  vehicle-fixed  coordinate 
axis  system,  positive  for  rearward 
inclination  of  the  steering  axis  in 
the  upward  direction  (rad) 

®XGi  = Angle  between  the  vehicle  x axis  and 
ground  plane  at  wheel  i (rad) 

yiID’  ^iOD  = Circumferent:i-al  friction  coefficient 

at  dual  rear  inside  and  outside  wheels, 
respectively 

y * -p  -p. , y o /'vpx  = Lateral  friction  coefficient  at  dual 
yilD  yiOD  . , . , , 

rear  inside  and  outside  wheels,  re- 
spectively 

Poi>  = Circumferential  friction  coefficient 

at  braking  slip  equal  to  0 and  1,  re- 
spectively 

Pp^,  hpp  = Peak  braking  friction  coefficient, 
front  and  rear  wheels,  respectively 

y y!  = Lateral  and  circumferential  friction 
yi  i 

coefficients,  respectively,  at  wheel  i 
t = Aerodynamic  angle  of  sideslip  (rad) 

(p,  9,  ip  = Euler  angular  coordinates  (roll,  pitch, 
and  yaw  angles)  of  the  sprung  mass  rela- 
tive to  the  space-fixed  coordinate  axis 
system  (rad) 

<p . = Camber  angle  of  wheel  i relative  to 
the  vehicle-fixed  coordinate  axis  sys- 
tem, positive  when  clockwise  as  viewed 
from  the  rear  (rad) 

<J>  ^ = Camber  angle  of  wheel  i relative  to 

the  ground  plane  (rad) 

<|>p,  <f>p,  <j)j,  = Angular  acceleration,  velocity,  and  dis- 
placement of  the  front  axle  relative  to 
the  vehicle  about  a line  parallel  to  the 
x axis  through  the  front  axle  center  of 
gravity,  positive  when  counterclockwise 
as  viewed  from  the  front  (rad/s^,  rad/s, 
rad) 
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4>r,‘  <()  , = Angular  acceleration,  velocity,  and  dis- 

placement of  the  rear  axle  relative  to 
the  vehicle  about  a line  parallel  to  the 
x axis  through  the  rear  axle  center  of 
gravity,  positive  when  clockwise  as 
viewed  from  the  rear  (rad/s^,  rad/s,  rad) 

<j>Q  . = Kingpin  inclination  angle  at  front  wheel 


ip.  = Steer  angle  of  wheel  i relative  to  the 
vehicle-fixed  coordinate  axis  system, 
positive  for  clockwise  steer  as  viewed 
from  above  vehicle  (rad) 

ipl  = Steer  angle  of  wheel  i in  the  ground 
plane  (rad) 

w.,  oj.  = Rotational  acceleration  and  velocity  of 
wheel  i (rad/s^,  rad/s) 

3.2.2  Parameters 

a,  b = Distance  in  the  x direction  between 
the  center  of  gravity  of  the  sprung 
mass  and  the  centerline  of  the  front 
and  rear  wheels,  respectively  (in.) 

a ^ = Length  of  steering  linkage  arm  at 
front  wheel  i (in.) 


a 

P 


Length  of  Pitman  arm  (in.) 


A0F’  A1F’  A2F’ 
A0R’  A1R’  A2R 


Coefficients  of  2nd  degree  curves 
fitted  to  small-angle  cornering  stiff- 
ness, front  and  rear  wheels,  respectively 


A^p,  A^p,  A^p,  A^r  = Coefficients  of  2nd  degree  curves 

fitted  to  small-angle  camber  stiffness, 
front  and  rear  wheels,  respectively 


A_pi,  Ap2»  Ap^,  = Coefficients  of  functions  fitted  to 
tire  aligning  torque,  front  and  rear 
kI*  ^2*  k3  wheels,  respectively 


ARp,  ARp 


Drive  axle  ratio  for  the  front  and 
the  rear,  respectively,  (i.e.,  pro- 
peller shaft  speed  to  wheel  speed) 
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A«tr  = Proportionality  factor  defining  limits 
of  small-angle  cornering  and  camber 
stiffness  variation  with  tire  loading, 
front  and  rear  wheels,  respectively 

B1F*  B2F’  B3F*  B4F*  = f icients  of  curves  fitted  to  lateral 

friction  coefficient,  front  and  rear 
1R’  2R’  3R*  4R  wheels,  respectively 

Cif»  = Coefficients  of  5th  degree  polynomials 
(i  = 0 to  5)  fitted  to  wheel  camber 
angle  versus  suspension  deflection, 
front  and  rear  wheels,  respectively 

= Viscous  damping  in  steering  gear,  ef- 
CR  fective  at  the  steering  system  connect- 
ing rod  (lb-s/in.) 

= Coulomb  friction  in  steering  gear,  ef- 

.b  wK  r , - , 

fective  at  the  steering  system  connect- 
ing rod  (lb) 

^Fi’  ^Ri  = Coulomb  damping  for  a single  wheel, 

effective  at  the  wheel  for  independent 
suspension  and  at  the  spring  location 
for  the  solid  front/rear  axle,  front 
and  rear  wheels,  respectively 


, C , C , C , C„  , 
y y z z i 
yp  Jr  a q p 

C„  , C , C , C , C = Aerodynamic  stability  derivatives 
i m m n n 

r a q p r 

D_^r,  D_^r  = Coefficients  of  5th  degree  polynomials 
(i  = 0 to  5)  fitted  to  wheel  toe  angle 
versus  suspension  deflection,  front  and 
rear  wheels,  respectively 

E = Coefficients  of  5th  degree  polynomials 
1 (i  = 0 to  5)  fitted  to  front  wheel 

caster  angle  versus  suspension  deflec- 
tion 

g = Acceleration  due  to  gravity  = 386.4 
in . / s ^ 

hp^,  hR(_,  = Distance  between  the  ground  and  the 

static  roll  center  of  the  independent 
front  and  rear  suspension,  respectively 
(in. ) 
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H, 


IDF’  IDR 


I 


F’ 


FW 


^TJF*  IWR 


I , I , I 
x y z 


I 

xz 


KCF’  kcr 


Si’  Si = 


Ss’  Ss 


Sr 


Viscous  damping  derivative  at  front 
wheel  i (lb-in. -s/rad) 

Drive-line  moment  of  inertia  for  front 
and  rear  wheel  drives,  respectively 
(lb-in. -s^) 

Moment  of  inertia  of  solid  front  and 
rear  axles,  respectively,  about  a line 
through  its  center  of  gravity  and  par- 
allel to  the  x axis  (lb-in. -s^) 

Moment  of  inertia  of  individual  front 
wheel  about  the  kingpin  axis  (lb-in. -s) 

Moment  of  inertia  of  individual  wheel 
about  its  spin  axis,  front  and  rear 
wheels,  respectively  (lb-in. -sS 

Moment  of  inertia  of  sprung  mass  about 
the  x,  y,  and  z axes,  respectively 
(lb-in. -s^) 

Product  of  inertia  of  sprung  mass  with 
respect  to  the  x and  z axes  (lb-in. -s^) 

Lateral  force  compliance  camber  coef- 
ficient, front  and  rear  wheels,  respec- 
tively (rad/lb) 

Suspension  load-deflection  rate  for  a 
single  wheel  in  the  quasi-linear  range 
about  the  position  of  static  equilib- 
rium, effective  at  the  spring  location 
for  the  solid  front/rear  axle,  and  at 
the  front/rear  wheel  for  independent 
rear  suspension  (lb/in.) 

Roll  steer  coefficient  of  the  solid 
front  and  rear  axles,  respectively, 
positive  for  roll  understeer  (rad/rad) 

Rear  lateral  force  compliance  steer 
(rad/lb) 


Kq^,  KqTR  = Front  and  rear  overturning  moment  com- 
pliance camber  (independent  suspension) 
(rad/lb-in. ) 
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KS(^  = Flexibility  in  steering  column  and 
steering  gear  box  (lb-in. /rad) 

= Suspension  viscous  damping  rate  for  a 
single  wheel  in  the  quasi-linear  range 
about  the  position  of  static  equilib- 
rium, effective  at  the  spring  location 
for  the  solid  axle  and  at  the  wheel  for 
independent  suspension  (lb-s/in.) 

K . = Flexibility  in  steering  linkage  at  front 
1 wheel  i (lb-in. /rad) 

KgR  = Aligning  torque  compliance  steer  coef- 
ficient at  the  rear  wheels  (rad/ (lb-in. ) ) 


Tire  load-deflection  rate  in  the  quasi- 
linear  range  for  a single  tire  at  wheel 
i (Ib/in.) 


Gain  in  drive  torque  (lb-s) 
Wheelbase  length  of  vehicle  (in.) 


I = Characteristic  vehicle  length  upon  which 
aerodynamic  moment  coefficients  are 
referenced  (in.) 


M^,r  = Effective  mass  of  the  steering  system 
connecting  rod  (lb-s^/in.) 

M = Total  sprung  mass  (lb-s^/in.) 

u 


M 


uF» 


M 


uR 


Total  front  and  rear  unsprung  mass, 
respectively  (lb-s^/in.) 


Z M = Total  vehicle  mass  (lb-s^/in.) 


N = Gear  ratio  of  the  steering  gear  box 
G 

°F0’  °F1*  °F2’  °F3’  = Coefficients  of  functions  fitted  to 

tire  overturning  moment,  front  and 
RO*  Rl’  R2’  R3  rear  wheels,  respectively 

P , P P , , P R?  = Coefficients  of  curves  fitted  to  peak 

braking  friction  coefficient,  front  and 
rear  wheels,  respectively 
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p p p = 

FO*  FI*  F2* 

P P P 

RO ’ R1 * R2 

= Coefficients  of  curves  fitted  to  anti- 
pitch coefficients,  front  and  rear 
wheels,  respectively 

PT  = 

= Front  wheel  caster  offset  (in.) 

II 

= Auxiliary  roll  stiffness  at  front  and 
rear  suspensions,  respectively  (lb-in./ 
rad) 

^0*  RF1*  ^2* 
**()’  RR1’  ^2 

= Coefficients  of  curves  fitted  to  anti- 
roll coefficients,  front  and  rear  wheels, 
respectively 

R = 
w 

= Undeflected  wheel  radius  (in.) 

sf  ■ 

= Projected  frontal  area  of  vehicle  (in.^) 

su ' 

= Longitudinal  slip  at  wheel  i at  which 
peak  braking  friction  occurs 

(SN)so  ■ 

= Skid  number  of  simulated  surface 

(SN)t  ■ 

= Skid  number  of  surface  on  which  tire 
data  were  obtained 

SN.  = 
1 

= Skid  number  ratio  of  simulated  surface 
to  tire  data  surface 

S1F’  S1R  = 

= Front  and  rear  tire  linear  coefficient 
of  sliding  friction,  respectively  (1/lb) 

V tr  = 

= Wheel  tread  width  at  the  front  and  rear, 
respectively  (in.) 

tir’  tor  = 

= Distance  between  the  centers  of  inside 
and  outside  tires,  respectively,  in  the 
y direction  for  solid  rear  axle  with 
dual  tires  (in.) 

T T = 

SF*  SR 

= Distance  in  the  y direction  between 
the  spring  centers  for  solid  front  and 
rear  axles,  respectively  (in.) 

V = 
c 

= Desired  constant  vehicle  velocity  (in./s) 

V = 

yw 

= Velocity  of  cross  wind  in  space-fixed 
axes,  measured  at  sprung  mass  center 
of  gravity  (in./s) 
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= Distance  between  the  kingpin  axis  and 
wheel  centerline,  measured  along  the 
wheel  spin  axis  at  front  wheel  i (in.) 

Z,  . = Bias  constant  to  vertically  shift  the 

vehicle  center-of-gravity  position  (in.) 

Zp,  zR  = Static  distance  in  the  z direction 
between  the  center  of  gravity  of  the 
sprung  mass  and  center  of  gravities  of 
the  front  and  rear  unsprung  masses,  re- 
spectively (in.) 

6piN»  = Static  displacement  of  the  independent 

front/rear  suspension  from  the  position 
of  static  equilibrium  due  to  loading 
condition  (in.) 

A<p . = Magnitude  of  camber  play  at  front  wheel 
1 i (rad) 


Acf>.  = Static  caster  angle  bias  at  front  wheel 
1 i (rad) 

Aip.  = Static  toe  angle  bias  at  front  wheel  i 
1 (rad) 


e . = Free  play  in  steer  of  front  wheel  i 
P1  (rad) 


e = Free  play  in  steering  gear  box  (rad) 
sp 

^FIN’  ^RIN  = Stat:*-C  displacement  of  the  front/rear 

suspension  (solid  front/rear  axle)  from 
the  position  of  static  equilibrium  due 
to  loading  condition  (in.) 


A = Brake  torque  multiplier  at  wheel  i 

= Drive  torque  distribution  factor 

PSF*  PSR  = Coefficient  sliding  friction,  front 
and  rear  wheels,  respectively 

2 4 

p = Air  density  (lb-s  /in.  ) 
a 


A- 7 3 


^SAOi  = and  left  front  wheel  kingpin 

inclination  angle  at  equilibrium 
suspension  position  (rad) 

a)  , to  = Angular  velocity  of  wind  in  space- 
fixed  axes  (rad/s) 
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Appendix  B 


DESCRIPTION  OF  THE  HYBRID  COMPUTER  SIMULATION  LABORATORY 


Figure  B-l  is  a diagram  of  the  APL/JHU  hybrid  computer  sys- 
tem. The  primary  units  are  the  analog  and  digital  computers,  the 
hybrid  control  and  data  interface,  the  hybrid  operator  control 
console,  and  the  remote  batch  station.  Two  types  of  analog  com- 
puters manufactured  by  Electronic  Associates,  Inc.  (EAI) , are 
located  in  the  hybrid  laboratory,  and  the  portion  of  the  model 
programmed  on  the  analog  computer  is  divided  between  them.  The  en- 
tire steering  system  is  contained  on  an  EAI  231-R  and  the  rota- 
tional wheel  dynamics,  circumferential  friction  coefficient  calcu- 
lation, tire  deflection,  and  suspension  dynamics  are  contained  on  an 
EAI  680. 

The  hybrid  data  and  control  interface  permits  control  of  the 
analog  computer  by  the  digital  computer  and  exchange  of  data  be- 
tween the  analog  and  digital  computers.  Data  communication  with 
the  digital  computer  is  provided  by  24  multiplying  digital-to-analog 
converters  (MDAC's),  24  nonmultiplying  DAC’s,  and  48  channels  of 


Fig.  B-1  APL/JHU  Hybrid  Computer  System  Block  Diagram 
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analog-to-digital  conversion  (ADC's).  The  system  contains  a con- 
trol interface  that  allows  complete  control  of  the  680  analog  com- 
puter and  data  interface  via  Fortran  IV  callable  subroutines,  by 
the  digital  computer,  which  is  remotely  located  1000  feet  from  the 
hybrid  laboratory.  A detailed  description  of  the  APL/JHU  hybrid 
facility  is  presented  in  Appendix  C of  Ref.  10. 

The  digital  computer  is  an  IBM  360/91,  one  of  the  largest 
and  fastest  computers  built  by  IBM,  and  is  characterized  by  the 
following: 


• Third  generation  hardware 

• 4 million  bytes  of  main  core  storage 

• 4 billion  bytes  of  random  access  storage 

• Minimum  instruction  execution  time  of  60  ns 

• Use  of  the  Operating  System  Multiprogramming  with  a 
Variable  Number  of  Tasks  (OS/MVT) 

All  vehicle  model  calculations  not  assigned  to  the  analog  computers 
are  performed  digitally.  Simulation  coding  is  performed  in  the 
Fortran  IV  language. 

Since  the  hybrid  computing  facility  is  remotely  located 
from  the  digital  computer,  a remote  batch  terminal  is  required  for 
program  deck  submission  and  the  printing  of  digital  output.  The 
terminal  in  the  hybrid  laboratory  is  a Data  100  and  contains  a 600 
card/min  reader  and  a 600  line/min  printer. 

The  hybrid  operator  control  console  is  an  IBM  3270  display 
system  consisting  of  a CRT,  a keyboard,  and  a printer.  All  simula- 
tion control  is  exercised  at  this  station.  Simulation  directives, 
user  information  input  via  the  keyboard,  and  simulation  output 
appear  on  the  CRT.  The  printer  is  used  to  ghost  print  everything 
that  appears  on  the  CRT  so  that  user/computer  transactions  are  not 
lost.  A very  powerful  and  flexible  set  of  communication  routines, 
designed  for  simulation  use,  is  available  to  the  user  at  the  hybrid 
operator  console.  The  software  that  services  the  control  console 
is  applicable  to  terminals  other  than  the  IBM  3270.  Therefore,  the 
simulation  can  be  operated  via  a dial-up  typewriter  of  a CRT  type 
terminal  from  a remote  location. 


*/ 
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Appendix  C 


INTERACTIVE  SUBROUTINES 


1.  INTRODUCTION 

A set  of  generalized  user  communication  subroutines  has  been 
added  to  the  Improved  Hybrid  Computer  Vehicle  Handling  Program 
(IHVHP)  to  enhance  its  operation  by  engineers.  A subset  of  these 
routines  directly  aimed  at  the  engineering  user  expedites  the  simu- 
lation functions  of  changing  parameters,  selecting  variables  for 
output,  performing  parametric  runs,  and  general  simulation  control. 
Another  subset,  directed  toward  the  simulation  designer,  allows 
tasks  such  as  reassigning  and  rescaling  analog-to-digital  and  digital- 
to-analog  converters  (ADC's  and  DAC's),  printing  the  current  values 
of  all  digital  variables,  and  printing  selected  members  of  arrays. 

The  use  of  these  routines  has  allowed  easy  configuration  of  the 
IHVHP  to  perform  the  Vehicle  Handling  Test  Procedures  (VHTP)  and  to 
calculate  the  vehicle  performance  comparison  variables. 


2 . SUBROUTINE  USE 

All  simulation  control  occurs  at  the  hybrid  computer  opera- 
tor's station,  which  consists  of  a telecommunications  device  (tele- 
typewriter or  a CRT  with  keyboard).  Once  the  simulation  is  active, 
the  user  controls  simulation  activity  with  input  responses  to  the 
OPTION  cue.  Each  input  selects  an  interactive  routine.  Once  a 
routine  has  been  selected,  the  user  is  queried  for  information  nec- 
essary to  perform  the  task  of  the  selected  routine.  When  the  rou- 
tine is  completed,  the  readiness  of  the  simulation  for  the  next 
routine  is  indicated  by  the  reappearance  of  the  OPTION  cue. 

Table  C-l  lists  the  names  of  the  currently  available  interactive 
subroutines . 

In  general,  the  routines  either  alter  simulation  data,  pro- 
vide simulation  control,  or  provide  for  output  of  simulation  data. 
For  output,  the  information  may  be  directed  to  the  hybrid  operator 
station  (T) , the  system  line  printer  (L) , or  both  (B) . Also,  the 
output  can  be  specified  as  immediate  (XEQ) , at  the  end  of  a single- 
run execution  (S) , or  at  the  end  of  each  run  in  a multiple-run  exe- 
cution (M) . These  output  selections  and  their  codes  are  shown  in 
Table  C-2. 
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Table  C-l 


X 

XM 

IC 

F 

I 

DACA 

ADCA 

MULTI 

TEST 

MES 


Interactive  Subroutine  List 


Execute  single  simulation  run 

Execute  multirun  series 

Initialize  simulation 

Read  or  alter  real  variables 

Read  or  alter  integer  vari- 
ables 

Alter  DAC  array 

Alter  ADC  array 

Set  up  multiple  runs 

Test  runs  or  ABEND 

Send  message  to  line  printer 


TABLE  Set  up  end-of-run  output 

TRACK  Set  up  during-run  data  col- 

lection 

LA  List  array  values 

REMOVE  Suspend  output 

T+D  Output  time  and  data 

STD  Standard  output 

DUMP  Output  all  variables 

DACL  List  DAC  array 

ADCL  List  ADC  array 

PLOT  Variable  cross-plot 

TERM  Terminate  program 


Table 

Data  Output 
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Selections 

Unit 

Mode 

T = CRT 

S = Single  runs  only 

L = System  line  printer 

M = Multiruns  only 

B = Both  T and  L 

A = Both  S and  M 

XEQ  = Immediately 
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3.  INTERACTIVE  VARIABLES 


To  be  effective,  the  routines  must  access,  by  name,  the 
Fortran  variables  within  a simulation.  The  variables  of  interest, 
termed  interactive  variables,  need  only  appear  in  a Fortran  named 
COMMON  to  be  accessed.  Once  selected,  a variable  can  be  given  any 
number  of  aliases.  The  alias  capability  is  particularly  important 
when  an  interactive  variable  is  an  array  member.  For  instance,  the 
current  value  of  input  brake  line  pressure,  which  is  stored  in  ele- 
ment 121  of  the  PARAM  array,  has  been  given  the  alias  PFL.  Also, 
the  PARAM  array  has  been  given  the  shorter  alias  PRM.  A maximum 
of  400  interactive  variables  can  be  selected.  However,  it  is  im- 
portant to  note  that  the  PARAM  array,  which  has  295  elements,  uses 
only  one  interactive  variable  allocation.  Nearly  all  variables 
associated  with  wheel  computation  (side  force,  FSI;  normal  force, 
FRI;  ground  patch  velocity,  CVI;  etc.)  can  be  addressed  as  arrays 
and  use  only  one  interactive  variable  allocation.  Currently,  300 
interactive  names  have  been  used  that  permit  the  interrogation  or 
alteration  of  more  than  900  Fortran  variables. 


4.  SUBROUTINE  DESCRIPTIONS 


Each  subroutine  is  discussed,  including  all  required  inputs, 
and  actual  user  examples  are  presented.  In  the  examples,  ****  in- 
dicates user  input,  the  remainder  is  computer  output.  Although 
they  are  not  presented,  the  routines  have  extensive  error  handling 
facilities  that  alert  a user  when  errors  are  made. 


4.1  X (Execute  Single  Simulation  Run) 


Purpose:  To  perform  a single  simulation  run.  The  simula- 

tion is  automatically  initialized  (IC)  and  a run  performed. 


OPTION  when  the  run  is  completed  and  all  output  has  been 
printed . 


Example : 


OPTION 

****  X 

JUNE  20  1974 

TIME  101617. 09 
RUN  5 HAS  STARTED 
OUTPUT  BELOW 

AXAV=  0.0  DECL  TIME  = 0.000  AVCUR=  0.116  BTDMAX=  0.023  BTMAX=  0.007  DELBT=  0.006 

AYMAX=  0.154  PHIMAX=  1.502  RMAX-  0.066  LANE  CHNG  DEL=  0.0  DELPSI=  0.0  MAX  STEER=  27.927 
PTRGMAX=  0.0  RTRGMAX=  0.0 

OPTION 
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4.2  XM  (Execute  Multirun  Series) 

Purpose:  Perform  a series  of  parametric  runs.  The  simula- 

tion is  automatically  initialized  (IC)  prior  to  performing 
each  run  in  the  series. 

Input  requested:  None.  Control  is  returned  to  OPTION  when 

the  run  series  is  completed  and  all  output  has  been  printed. 

Example : 

OPTION 
«•***  XM 


JUNE 

20 

i 974 

TIME 

i 0 : 24 : 

7 * i 6 

RUN 

i 0 H A S 

STARTED 

OUTPUT  BELOW 

MULT  I 

TOTAL 

■V  I P 4 * * ( 

1 ) BET A MX ( 1 ) 

BET D MX ( 1 ) 

CUVRAT ( 

1 

1 0 

26.0 

0 . 674E-02 

0 . 237E-01 

0.11  1 

'■) 

i 1 

!:» 6 . (■) 

0. 1 41 E- 01 

0 * 4 6 5 E - 0 1 

0,209 

3 

1 2 

84,0 

0.254E-01 

0.655E-01 

0.306 

4 

1 3 

112. 

0,41 6E-01 

0.903E--01 

0.394 

4.3  IC  (Initialize  Simulation  [do  not  execute]) 

Purpose:  Resets  variables  back  to  their  initial  conditions. 

Sets  potentiometers  and  DAC's,  then  returns  control  to 
OPTION. 

Internal  input  requested:  None 

Example : 

OPTION 
•x  -x-  x x-  I C 
OPTION 


4.4  F (Read  or  Alter  Real  Variables) 

Purpose:  Read  current  values  of  parameters,  initial  condi- 

tions, and  variables  which  are  declared  REAL  to  Fortran. 
Alter  current  values  of  REAL  parameters  and  initial  condi- 
tions. 
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Input  requested:  Interactive  variable  only  for  readout, 

interactive  variable  followed  by  new  value  for  altering 
data. 

Variation:  Array  Readout:  (a)  Interactive  variable  fol- 

lowed by  range  of  array  to  be  output,  (b)  interactive 
variable  followed  by  the  letters  AM,  allowing  addressing 
array  elements  by  number. 

Examples : 


OPT ION 

i it  it  it  X-  F 

ENTER 

•it  it  it  it  VHTPNO 

0 v.  0 

it  it  it  it  VHTPNO  5 , 


■it  it  it  K 

PR  I 

1 4 

1 r.t 

u::  > 

1 073, 

:::: 

> 

1 073 .. 

■it  it  it  it 

PPM 

285  28 

/ 

285= 

::::  > 

3,900 

286=  = 

> 

0 , 0 

it  it  it  it 

PF 

'H 

1 23 

i :::: 

....  f 

12,33 

2 ::::  :::: 

> 

0 , 5 1 00 

5 :••• 

::::  > 

1 1 , 30 

6== 

> 

49 , 30 

9= 

> 

61  ,80 

1 0 :::: 

> 

47.00 

1 3= 

= > 

0 

, 2333E 

05 

1 4:::::::: 

> 

530 . 0 

1 7 = 

= > 

0 

, 4040  E 

05 

1 8 = = 

> 

4O.00 

21  = 

> 

.... 

2,400 

9 •”> 

> 

2.1  00 

•it  it  it  it 

FR1 

AM 

it  Kit  it  i 

1 073 , 

it  it  it  it  2 

1 073,. 

■tit  it  it  3 

387 7 

it  it « it  A 

887 , 7 

■it  -it  * it  P R M A M 

•it  it  it  it  28!:) 

3 900 

•'tit  it  it  285  4,4 

it  -it  it  2 8 5 

4 , 40O 

*U:  j(- 


3—  > 
287;:::::::  > 
> 

7 > 

1 i — > 
1 5—  > 

1 9::::::::  > 

2 3 :::: ::::  > 


8 8 7 , 7 

1 000 

0 , 8 2 U O 
68 , 70 
3758 , 
550 O 
1 05 , 0 
0 0 


4 •::: ::::  ) 0 0 /'  ...  / 


4 — > 1 I ,30 
8 :::: > 59,80 

12— > 0 , 2305E  05 
16—  > 0,0 
20—  > 2,000 
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4.5  I (Read  or  Alter  Integer  Variables) 

Purpose:  Read  current  values  of  parameters,  initial  condi- 

tions, and  variables  that  are  declared  INTEGER  to  Fortran. 
Alter  current  values  of  INTEGER  parameters  and  initial  con- 
ditions. 

Input  requested:  Interactive  variable  only  for  readout, 

interactive  variable  followed  by  new  value  for  altering 
data. 

Example : 

UP : 1 ON 

• j I**  )(■  -jrf-  >1;  j 

l::.N  i i::.h‘ 

■X-  K-  X ji-  1 pQT 


4.6  DACA  (Alter  DAC  Array) 

Purpose:  To  change  DAC  variable  assignment  and/or  scaling. 

Inputs  requested: 

1.  ENTER  DAC  NUM  OR  NAME 

a.  Purpose:  To  select  DAC  to  be  altered. 

b.  Input  requested:  The  name  of  any  interactive 

variable  that  is  assigned  to  a DAC  or  a number  from 
1 to  48. 

2 . ENTER  NAME 

a.  Purpose:  To  reassign  a new  variable  to  the  DAC. 

b.  Input  requested:  Any  interactive  variable.  De- 

pressing the  carriage  return  will  retain  the  old 
assignment . 

3.  SCALE  FACTOR 

a.  Purpose:  To  enter  scale  factor. 

b.  Input  requested:  Any  number. 
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Example : 


OP I I ON 
ftftftft  I)  AC  A 

TO  RETURN  TO  OPT IONS  HIT  CR 
ENTER  DAC  ARRAY  NUM  OR  NAME 
•»**•<«■  i 

DACOi  1 ) 1 OUT , , ( i ) / i ,0000 

ENTER  NAME 
•ft  * ft-  ft  A Y M A X 
SCALE  FACTOR 

*■  * -x-  * i , 

ENTER  DAC  ARRAY  NUM  OR  NAME 

•)(■  *•  -ft-  * 

OPT ION 


4.7  ADCA  (Alter  ADC  Array) 

Identical  to  DAC  routine  with  the  exception  that  the  inter- 
active variable  is  assigned  to  an  ADC,  not  a DAC,  and  the 
number  must  be  from  1 to  28. 

Example : 

OPTION 

■ft'  ft  ft  ft  i 'l  .0  I*i 

i 0 RETURN  TO  OPTIONS  HIT  CR 
ENTER  ADC  ARRAY  NUM  OR  NAME 
* * * * 2 0 

OUAN2 , ( i j - ADCO ( 20  ) ft  1 , 0000 

ENTER  NAME 
ftftftft  SLIP I i 2 ) 

SCALE  FACTOR 

•ftftftft  | ... 

ENIER  ADC  ARRAY  NUM  OR  NAME 

ft  ft  ft:  ft; 


4.8  MULTI  (Set  Up  Multiple  Runs) 

Purpose:  To  automatically  execute  a series  of  runs.  Parame- 

ters (interactive  variables)  may  be  incremented  from  run  to 
run  by  this  routine.  Parameters  retain  their  incremented 
value  at  the  end  of  the  multiple  run. 
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Inputs  requested: 


1.  NUMBER  OF  LOOPS,  VARS 

a.  Purpose:  To  specify  the  total  number  of  runs  to 

be  made  and  the  number  of  interactive  variables  to 
be  incremented. 

b.  Input  requested:  LOOPS,  a number  less  than  100; 

VARS,  a number  less  than  50. 

2.  VAR 

a.  Purpose:  To  specify  the  interactive  variables  to 

be  incremented.  The  variables  are  incremented  at 
the  end  of  each  run  in  the  multiloop.  If  0 is  en- 
tered, control  is  returned  to  OPTION. 

b.  Input  requested:  Any  interactive  variable. 

3.  LOOP,  VAL,  INC 

a.  Purpose:  To  specify  the  run  number,  initial  value, 

and  increment  per  run. 

b.  Input  requested:  A value  can  be  specified  for  each 

run  with  a 0 increment  or  a series  can  be  set  up  by 
the  input  of  an  increment.  The  incrementing  is 
halted  at  each  new  LOOP  input  or  when  runs  equal  to 
the  total  number  of  LOOPS  have  been  completed. 


Example : 


OPT ION 

•xxxx  MULTI 

NUM  OF  LOOPS > VARS 

•)(•#*#  1 2 2 

VAR 

•x  x x x S T R 4 
LOOP  VAL  / INC 
•xxxx  i 28.  28. 
•xxxx  7 28.  28. 

X X x x 

VAR 

•x  x x x y I N 
LOOP / VAL / INC 
•x  x x x i 5 o . 0 . 

•X  x x x 7 6 0 . 

•xx xx  7 60.  0. 

•x  x x x 
OPT ION 
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4.9  TEST  (Test  Runs  or  ABEND) 

Purpose:  To  run  the  problem  without  real-time  service  or 

produce  an  abnormal  termination  (ABEND) , thus  giving  a pro- 
gram dump. 

Input  requested: 

1.  ENTER:  RTIME,  NO  RTIME,  ABEND 

a.  Purpose:  To  indicate  that  a command  is  desired. 

b.  Input  requested:  One  of  three  commands: 

(1)  NO  RTIME:  This  will  remove  the  real-time  calls. 

(2)  RTIME:  This  will  replace  the  real-time  calls. 

(3)  ABEND:  Will  produce  a program  dump. 

Example : 

OPTION 
•KOHtK-  TEST 

E N T E E : R T I M E t N 0 R T I fi  E , A B E N D 
■)(•**«  RTIME 


4.10  MES  (Send  Message  to  Line  Printer) 

Purpose:  To  send  a message  to  the  line  printer  that  will 

document  analog  programming  changes  (experimental  or  perma- 
nent) , indicate  the  state  of  analog  computer,  or  log  simula- 
tion information. 

Input  requested:  A message  that  is  less  than  80  characters 

per  line  long. 

Example : 

OPT ION 

ME. S' 

TO  RETURN  TO  OPTIONS'  HIT  CE  TWICE 
«***  THIS  OPTION  IS  USEFUL  FOR 
■;<:  -x-  # * D 0 0 IJ  M E N T I N G S I M U L A T 1 0 N R U N N I N 0 
n * * * A N D K E E P I N Q S I M U I . A T 1 0 N N 0 T E S 
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4.11  TABLE  (Set  up  End-of-Run  Output) 

Purpose:  To  output  data  for  a series  of  runs  In  tabular 

form.  Designed  for  use  in  the  multirun  cases.  This  rou- 
tine is  called  automatically  whenever  a multirun  case  is  in 
affect,  unless  it  is  deselected. 

Input  requested:  Up  to  nine  interactive  variables. 

Example : 


OPT ION 
■><••*•><•*■  TABLE 
UNIT  > MODE 
}<■  * # T M 

ENTER  UP  TO  9 NAMES' 

•)<**•*  s T R A BET  A MX  BET  I)  MX  CUVRAT 


4.12  TRACK  (Set  up  During-Run  Data  Collection) 

Purpose:  To  collect  and  output  simulation  data  as  a func- 

tion of  time. 

Inputs  requested: 

1.  TIME  ON 

a.  Purpose:  To  state  the  time  in  seconds  that  the 

routine  will  turn  on. 

b.  Input  requested:  Any  positive  number. 

2 . TIME  OFF 

a.  Purpose:  To  state  the  time  in  seconds  that  the 

routine  will  turn  off. 

b.  Input  requested:  Any  positive  number  ^ TIME  ON. 

3.  TIME  STEP 

a.  Purpose:  To  state  the  time  between  samples.  If 

this  sample  interval  is  too  small,  the  program  will 
automatically  compensate  for  it. 

b.  Input  requested:  Any  positive  number. 
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4 . VARIABLES 


a.  Purpose:  To  enter  the  interactive  variables  to  be 

tracked.  Entering  the  word  RETAIN  will  retain  the 
previous  variable  list. 

b.  Inputs  requested:  Up  to  50  variables. 

Example : 

OPT ION 
«•*«••)(•  TRACK 
UNIT; MODE 
-K-  x T A 

E N T E R T I ii  E 0 N - (3  F F , S T E P 


•)(•  * V: 

* 5 1 » 1 /i 

TYPE  RETAIN  OR 

ENTER  NEW  ARRAY 

■:>t  ■)(  •)(  m- 

PS IDT  PHI 

DT  PHI  21 MX ( 1 ) Z I M X ( 3 ) 

x-  # * 

I ME 

F'SIDT . ( 1) 

PH IDT . ( 1) 

PHI . . . ( 1 ) 

ZIMX . . ( 1 ) 

7IMX..I  3) 

0.50 

0.43077 

0 . 77597E-02 

-0.11726 

0 . 29966E-01 

0.10125 

0.60 

0.35703 

0.29663 

-0.10414 

0.29966E-01 

0.10125 

0.70 

0 . 26566 

0.49151 

-0.59047E-01 

0.29966E  01 

0.10125 

0.60 

0.26740 

0.32454 

-0.1 6426E-01 

0 . 29966E-01 

0.10125 

0.90 

0.30123 

0. 14344E-02 

-0. 12279E-03 

0.29966E-01 

0.10125 

1 .00 

0.26316 

"0 . 1 4620 

-0 . 90556E-02 

0 . 29966E-01 

0.10125 

1.10 

0.29046 

-0.36197 

-0 . 3031  4E--01 

0.29966E-01 

0.10125 

ION 

4.13  LA  (List 

Array  Values) 

Purpose 

: To  output  the  values 

of  variables 

that  are  array 

members 

• 

Inputs 

requested : 

Any  interactive  variable 

that  is  an  array 

followed  by  the  range  of  the  array  desired. 


Example : 

OPT IUN 
H###  LA 
UNIT /MODE 
*###  T XE« 

ENTER  NAME / INDEX  1 /INDEX2 
w»#»  FRI  1 4 
**##  FSI  1 4 
###*  F'RM  11  14 

F'ARAM  11  14 

***# 

FRI 


1==> 

1073. 

2 = => 

1073. 

3==  > 

667.7 

4==  > 

667.7 

ESI 

1==> 

-10.51 

2==  > 

10.51 

3==  > 

0.0 

4==  > 

0.0 

PRM 

1 1==> 

3632. 

12==  > 

0.2400E 

05 

1 3==  > 

0.2431E 

05 

1 4==  > 

530.0 

F'ARAM . . . 

1 1==> 

3632. 

12  = = > 

0.240GE 

05 

1 3==  > 

0.2431E 

05 

14==  > 

530.0 
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REMOVE  (Suspend  Output) 


Purpose:  To  cancel  the  execution  of  a selected  interactive 

subroutine. 

Input  requested:  Any  interactive  subroutine  name. 

Example : 

OPTION 
x-  ¥:  REMOVE 

WHAT 

•»*•#■*  TRACK 


4.15  T+D  (Output  Time  and  Date) 

Purpose:  To  display  the  time  and  date. 

Example : 

OPTION 

"f  .j.  j ) 

UN I T ! MODE 
«i-  >(■  k-  "\  X E Q 
JUNE  21  1974 

T I ME  1 4 : 3G  : 40  67 


4.16  STD  (Standard  Output) 

Purpose:  Select  standard  end-of-run  data. 

Example : 


OF' I ION 
****  STD 
UNIT  /MODE 
*»**  I XE6 

AXAV  = kj.O  DECL  TIME-  0.0  AVCUR=  0.0  BTDMAX=  0.0  BTMAX=  0.0  DELBT  = 0.0 

AYMAX-  0.000  F'HIMAX=  0.0  RMAX=  0.0  LANE  CHNC  DEL=  0.0  DELRSI=  0.0  MAX  STEER=  0.0 
FTRQMAX=  0.0  RTR0MAX=  0.0 


4.17  DUMP  (Output  All  Variables) 

Purpose:  To  display  the  value  of  each  interactive  varia- 

ble at  the  time  the  dump  is  selected  to  execute. 
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Example 


(II  I I ON 
»**#  DUMP 
UNI r /MODE 
****  I XEG 


ABBTV . - 

0.0 

I)EL1  DT- 

0.0 

0 I'M  . . .- 

63.26 

S3P . . . - -36.00 

AH  I 

0.1 962E--01 

DFI.2DA= 

0.0 

P = 

0 . 0 

S4P . . .=  -36.00 

AFA.  . .= 

1 .000 

DEL2DT” 

0 . 0 

1 ARAM . ~ 

6.430 

TBCR3 . » 2.923 

AIXBR.a 

3920 . 

Dl  ! 3 DA- 

0.0 

PIT 

0.0 

TBCR4 . - 2.9.23 

AIXP.  .= 

1 69 . 0 

DE  1 3 D T - 

0.0 

PHR 

0.0 

1 BSR3 . - 1.036 

AIXZBR= 

1 77.5 

DEIS. .“ 

" . 6000 

r l» 

- . 3097E-03 

I HSR 4 . - 0.9047 

A T.X7P . ~ 

-352.5 

Dl.YTB . - 

-.24531 

5 4 

Pf  1 

1 000 . 

I FRDAC--  - . 5366E  09 

AT  YBR . = 

0.2322E  05 

DSWMAX- 

0.0 

1 III  ...=• 

0 . 0 

1 f 02 . . =■  29 . 90 

AIYP.  .= 

169.0 

DT  ....== 

0 . 1 0001  • 

01 

PIIIOGI- 

- . 3630E  02 

THE ...  =»  -.121  5E-  02 

A I ZBR  . = 

0.2944E  05 • 

1)  1 ...  = 

0 . 0 . 

rni  Diix- 

0.0 

THEDT.a  0.0 

AKK 1 . .= 

1 .000 

D2 = 

1 . 209 

pinni 

0.0 

1 HEI’N  1=  0.7500 

AKK2 . . == 

1 .000 

D3 = 

0.0 

piii i u r- 

.3600 

1 1 IEO . . - -.121  5E-02 

API  I . .= 

- . 2262E  00 

D4 = 

0.11 46F 

66 

pi  it  i: . 

- .6405E  02 

I HERR . = 0.0 

AL.  IR.  . = 

-46.06 

ETAL. 

-.11 33E- 

05 

PH  1 MAX- 

0 . 0 

TURD . . = 0.3333 

AMI  I . .= 

25 . 05 

r 1 AX.  .= 

- .21 76E- 

03 

pinn.  .- 

0 . 0 

TIIS1..-  0.1309E  01 

All  12.  . = 

-25.05 

. X TAB . - 

- . 1 276F 

56 

PHIRD . - 

0.0 

!HS2..=  0.1309L  01 

AMU  I 

0.9657 

E 1 •■= 

0.1 1 56E 

09 

PH  J.R  DA- 

0.0 

1 TMBMPa  0.0 

AMI  I . . = 

5.010 

E2 = 

-.4460E 

06 

PHI  RR . - 

0.0 

^ 1 MDEC==  0.0 

AM2I . .= 

-.2466 

E3 = 

0. 1 252E 

06 

PU - 

0.0 

TIME. .a  0.0 

ANGNL . = 

0.11 OOE  09 

FBS 1 . .= 

0.0 

I'RM 

6.430 

TIME1 0=  0.0 

ANGNL  0= 

0.0392E-04 

FBS2 . .= 

0.0 

PS  I 

0.0 

TIME 25=  0.0 

ANT  11 .» 

1 .734 

FBS 3. .» 

0.0 

PS IDT. a 

0.0 

TIMIN5=  0.0 

ANTI2 . = 

1 .734 

FBS4 . .= 

0.0 

PSIFNT- 

-.2700 

TMAX 1 . ~ 0.9942E  26 

ANT  13 . = 

-.1 425 

FCI  . . .= 

0.0 

PSII.  .’= 

- . 1 556E-02 

TMAX2 . = 0.1991E  06 

ANTI4. = 

-.1425 

FCIMAX= 

692.9 

PSIMAXa 

0.0 

TMAX3 . = - . 4679E-49 

API  . . .= 

0.1301 

FI = 

1 .000 

PS 10. .= 

0.0 

TMP . . .»  0.0 

AP2 . . . = 

0.1301 

FOTM . . = 

-1 .216 

PS I OUT = 

0.0 

TQBF . . = 0.0 

AP3 . . .= 

-.1 425 

FRI . . .= 

1047. 

PSIRR.“ 

0 . 0 

TGBR . . = 0.0 

AP4 . . .= 

-.1 425 

FRIBR . - 

1047. 

PSI3S . - 

0.0 

TGEMAX-"  0.0 

ARPS 1 .= 

56.79 

FSI . . .= 

- 1 9 . 70 

PSI4S . - 

0 . 0 

IN RMAX-  0.0 

ARPS 2 . = 

56.97 

FXL..1  . .- 

0 . 0 

PS 15. .= 

0.0 

TRCR3 . = 1.315 

AR1  . . .= 

1 .596 

FXL2. .= 

0.0 

PSR3 . . = 

0 . 0 

TRCR4 . = 1.315 

AR2 . . .= 

1 .596 

FXUI  . .= 

-1 .302 

PSR4 . . =■ 

0 . 0 

TR02 . . = 30.90 

AR3 . . .« 

0.0 

FYUI . .= 

-19.70 

Q ^ 

0.0 

I RSR3 . = 0.4669 

AR4 . . 

0.0 

G 

366 . 4 

RDT 

0.5060E  01 

I RSR4  . 0.4069 

AXAVE . = 

0 . 0 

GAME . 

0 . 0 

GO = 

0 . 0 

I S 02  . . 23.50 

AX  I . . . = 

0.0 

GAM 1 . .= 

-31 .19 

GUAM 1 .= 

0.0 

TSTEP.®  0. 1 000E-01 

AYMAX . = 

0.11 33E-05 

GAM2 . .= 

15.03 

GUAN2 . = 

0.0 

I WN7 . . - 0.3704E-01 

A1 = 

1 .540 

GAM3 . 

15.03 

GUAM 3 . - 

0.0 

U = 660.0 

A12.  . .= 

-1543. 

GBI 

- . 1 949E- 

01 

GUAN4 . ~ 

0.0 

( I I)  I . . .=  - . 6422E-01 

A 2 = 

1545. 

GETDL.  .= 

0.0 

R == 

0.0 

UGI . . . - 660.0 

A2T . . .= 

1 900 . 

GI » 

- . 1 662E- 

-01 

RDT 

- . 2360E  05 

IIGIP..=  660.0 

BAM I . .= 

0. 2221 E- 02 

GP1 

0.2664E 

06 

RMAX . .- 

0 . 0 

U I .... = 660.0 

BETA I . = 

0 . 1 550E- 02 

GP2  ...  -■= 

2202 . 

RMI 

1011. 

UIN...=  50.00 

BET  AMX- 

0.0 

GR 1 

2202 . 

RO 

0.0 

UO ....--  660.0 

BETDMX- 

0.0 

GR2. . .= 

0 . 36 1 1 E 

05 

ROT M . .= 

0 . 0 

UOUT . . = 660.0 

BETIBR- 

- . 1 962E-01 

GV1 

0.4460E 

06 

ROUT. .- 

0.0 

UOI...=  0.6966 

BET IP . = 

0 . 6625E-03 

GV2.  . .== 

0 . 1 252E 

06 

RTAB. 

- .6457E-53 

U1I...=  0.6500 

BMPN. .= 

0.0 

I A X . . . “ 

0.51 46E- 

-64 

RU7I . .* 

0.7219 

IJ 1 P . . . = 0.0 

BMPS  » . = 

0.0 

IDACK . - 

0.0 

RZE . . .- 

24.50 

U2P . . . = 0.0 

BRKOFF= 

1 .020 

IENDR . - 

-14.24 

RZR . . .= 

24.50 

U3P . . . = 0.0 

BRKON . = 

0.5200 

IERDAO 

-14.24 

SAI..TG . - 

0.0 

U4P...=  0.0 

BSLOPE= 

0 . 5000E-01 

IN = 

-.201 4E 

02 

SAMI . .- 

0.1272 

V = 0.0 

BTV . 

0.0 

INA. . .= 

0 . 2523E 

09 

SCR 3. .= 

0.3551 

VI)T  . . . = - . 4644E-03 

BTVDT . ~ 

- . 4975E-06 

I OR . . .= 

O.0236E 

63 

SCR 4 . . - 

0.3095 

V G I . . . = 0.0 
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CA20 . . - 0.6842E 

07 

I OUT . .= 

0 . 7892E- 04 

SPIN. .= 

-100.0 

VI  I TP  NO  - 

6.000 

CA23 . . = 3293 . 

I OUT A . - 

0.2031 E 38 

SFOUi . = 

1 . 000 

VI - 

0.0 

C IP...--  4105. 

I POT . .- 

0.1 5 24 E- 81 

•ST  XU.  .- 

-4.643 

VO.  . . .- 

0 . 0 

Cl  VP..-  204 6. 

I POT AD- 

0. 1 524E-81 

SF  YU » 

0 . 0 

vein.  .= 

0 . 0 

eospsi=  1.000 

IF'RT . .= 

0.0 

S 1 NI  LS'  I - 

- . 1 558E  -02 

w -• 

0.0 

CPSR3 . - 1.000 

ISU1  . .== 

0 . 0 

SLIP I .= 

0.0 

WCTH1 .- 

- . 7869 

CP SR 4 . - 1.000 

ISW7. 

0.0 

SM = 

9.760 

UCTH2 . - 

-.9782 

CURT BP = 0.0 

I IMP. .= 

0 . 7892E-04 

SN = 

0 . 0 

WDT = 

18.51 

CURVAV--  0.0 

I VHTP . = 

0 . 3089E--83 

SNI . . .=- 

1 . 000 

UI -• 

0.0 

CUVRAT - 0.0 

JJTIME= 

0 . 0 

SNPHIU - 

- 1 .218 

WO - 

0.0 

CVI...=  50.00 

JUMP . . - 

0.0 

SNPSIU- 

0.0 

WSTH 1 .- 

0.6163 

DACO . . = 0 . 7872E 

04 

MUP . . . ~ 

0.85 A 3 

SN  I LIEU- 

1 1 66. 

WSTH2 . == 

0 . 2056 

DEI = 0.0 

NCAM . .- 

0.5432E  09 

SPSR3 . - 

0.3551 

X - 

0.0 

DEL BET - 0.0 

NCAS. .= 

-.741 8E  67 

SPSR4 . == 

0.3095 

XI) T . . . = 

880 . 0 

DELFU1 = 0.0 

NFA . . .= 

0.5148E  83 

SIR  1 . .= 

0.0 

XO ^ 

0.0 

DEL.FW2-  0.0 

NTF . . .= 

0.1  030E--83 

STR2 . . = 

0 . 0 

Y - 

0.0 

DELPHI = - . 7662E 

55 

NTR. . .= 

0 . 1 030E--83 

STR3 . . = 

0 . 0 

YDT . . 

0 . 0 

DELPSI--  0.0 

N1 - 

0. 1519E  81 

SIR 4 . . = 

0 . 0 

YO == 

0.0 

I)ELSTR=  0.0 

N2 = 

0.61 26 E- 82 

STR5 . .- 

223.4 

Z a: 

-23.84 

DELTA . - 0.1118E 

1 0 

0 N E 0 A . - 

- . 6480E - 03 

SIR 6 . . - 

223.4 

ZDT . . .- 

1 . 069 

DEL  THE-  ~ . 1 079E- 

4? 

ONE 01) . = 

0 . 8947E - 09 

S IP...- 

40.00 

Z J « 

-1 2.48 

DEL  1 DA=  0.0 

ONER. .- 

- . 5A53E-09 

S2P . . . - 

-40 . 00 

ZIMX . .- 

0.7219 

OPTION 


4.18  DACL  (List  DAC  Array) 

Purpose:  To  list  the  DAC  assignments  and  scale  factors. 

Example : 

or  - n:  ON 
■**#*  DACL 
UN  I T / mode: 

«»**  I XEM 


DACO ( 1 ) 

nr 

I OUT . . i 

1 )/ 

1 . 0000 

DACO ( 2) 

100  1 . . ( 

2 i / 

1 .0000 

DACO ( 3) 

TOOT  . . ( 

3 ) / 

1 . 0000 

DACO ( 4) 

« 

TOO  1 . . ( 

4 ) / 

1 .0000 

DACO ( 5) 

nr. 

TOUT  . . ( 

5 ) / 

1 .0000 

DACO ( A) 

:::: 

TOOT . . ( 

6 ) / 

1 .0000 

DACO ( 7) 

r:: 

TOUT  . . ( 

7 1 / 

1 . 0000 

DACO  ( 1:1  ) 

:rr 

TOO , . . ( 

(it  ) / 

1 .0000 

DACO ( 9) 

:r.r 

TOUT . . ( 

9 1 / 

1 . 0000 

DACO (10) 

TOUT. . ( 

10)/ 

1 .0000 

DACO ( 1 1 ) 

:n: 

TOO  1 . . ( 

11)/ 

1 . 0000 

DACO ( 1 2 ) 

TOUT . . ( 

12)/ 

1 .0000 

DACO ( 1 3 ) 

:» 

TOUT . . ( 

13)/ 

1 .0000 

DACO ( 1 4 ) 

:r 

TOUT . . ( 

14)/ 

1 . 0000 

DACO ( 1 5 ) 

TOUT . . ( 

15)/ 

1 .0000 

DACO ( 1 A ) 

TOUT  . . ( 

16)/ 

1 .0000 

DACO I 1 7 ) 

== 

TOUT. . ( 

17)/ 

1 . 0000 

DACO ( 1 0 ) 

TOUT . . ( 

10)/ 

1 .0000 

DACO ( 1 9 ) 

TOUT. . ( 

19)/ 

1 .0000 

DACO ( 20 ) 

nr 

TOUT. . ( 

20  ) / 

1 .0000 

DACO ( 21  ) 

TOUT.  . ( 

32  1/ 

1 .0000 

DACO (22 ) 

=r 

TOUT. . ( 

31  )/ 

1 . 0000 

DACO ( 23  I 

=r 

TOUT. . ( 

23  ) / 

1 .0000 

DACO (24  1 

TOUT . . ( 

29  )/ 

1 . 0000 

DACO ( 25 ) 

= 

TOUT. . ( 

25  )/ 

1 .0000 

DACO ( 26 ) 

aa 

TOUT. . 1 

26  )/ 

1 . 0000 

DACO ( 27 ) 

rr 

TOUT.  . ( 

27)/ 

1 . 0000 

DACO ( 20  ) 

ru 

TOUT.  . ( 

2o ) / 

1 .0000 
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PACO ( 29 ) 

== 

I OUT . . ( 

24  )/ 

1 . 0000 

PACO ( 30 ) 

m 

TOUT. . ( 

30  i / 

1 .0000 

PACO (31  ) 

nr 

I OUT.  . 1 

22  )/ 

1 .0000 

PACO (32) 

nr 

TOUT. . ( 

21)/ 

1 .0000 

PACO ( 33 ) 

nr 

TOUT . . ( 

33)/ 

1 .0000 

PACO ( 34 ) 

nr 

i our. . ( 

34  )/ 

1 .0000 

PACO l 35 ) 

nr 

TOUT. . ( 

35  ) / 

1 .0000 

PACO ( 36 ) 

nr. 

iour. . ( 

36  )/ 

1 .0000 

PACO (37 ) 

TOUT . . ( 

37)/ 

1 .0000 

PACO ( 36 ) 

nr 

ANT  11  . ( 

1 )/ 

1 0000 . 

PACO ( 39  ) 

nr 

ANT 12 . ( 

1 )/ 

10000. 

PACO ( 40  ) 

nr 

ANTI3. ( 

1 )/ 

1 0000. 

PACO ( 41  ) 

= 

ANTI 4. ( 

1 )/ 

10000. 

PACO ( 42 ) 

r:: 

ETAX. . ( 

1 )/ 

1 .4000 

PACO ( 43 ) 

nr 

ETAL. . ( 

1 )/ 

1 . 4000 

PACO ( 44  ) 

nr 

ROUT . . ( 

1 )/ 

1 .0000 

PACO ( 45  ) 

nr 

IJOUT . . ( 

1 )/ 

1 200.0 

PACO ( 46 ) 

rr 

VOUT. . ( 

1 )/ 

1 200.0 

PACO ( 47 ) 

nr 

E(TV.  . . ( 

1 )/ 

3.1 400 

PACO ( 46  ) 

=r 

ONER. . ( 

1 )/ 

0.41 700E 

4.19  ADCL  (List  ADC  Array) 

Purpose:  To  list  the  ADC  assignments  and  scale  factors. 

Example : 


OPTION 


xxxx  ADCL 
UNI T / MODE 
**•*»  T XL N 
DEL i Dii  1) 

ADC.  0 (.  1 )•» 

• i 00  * 00 

DEL2DT  i. 

1 ) 

:::: 

AD  CO  ( 2 ) x 

•i  00 . 00 

DEL CD I ( 

1 ) 

:::: 

AD  CO  ( 3 i n- 

i 00 .,  00 

DELI  DA ( 

i ) 

:::: 

ADC Of  4)* 

i O , OOO 

DEL 2D A ( 

1 ) 

:::: 

ADCOi  5)* 

1 0 ...  000 

DEL3DA ( 

i ) 

:::: 

ADCOi  6 ) a- 

i 0 , 000 

PM I ED  * t 

1 ) 

ADCOi  ?)•»: 

1 ,0000 

PH I EDA ( 

i ) 

:::: 

ADCOl  3)* 

0 , 25000 

DEL  FLU i 

1 i 

:::: 

ADCOi  9)* 

O , 50000 

DELED 2 ( 

i ) 

ADC 0 ( 1 0 } * 

0 , 50000 

l.  i 1 P ...  ...  ...  t 

i ) 

AD  CO  t i i ) •'( 

2 , 0000 

U 2 P * , , ( 

i ) 

ADCO i 1 2 ) * 

2 , 0000 

U3P  * ...  ...  ( 

i i 

AD  CO  ( 1 3 ) 

2 , 0000 

U4P  ... , ...  i 

1 ) 

:::: 

ADCO  ( i 4 i -)(- 

2 , 0000 

S 1 P „ , , i 

1 ) 

ADCO  ( i 5 i »: 

i 000 , 0 

22P  ...  , , ( 

i ) 

-- 

ADCO ( 1 6 ) « 

i 000 , 0 

3 I -' ...  ...  i 

i ) 

:::: 

ADCO ( i 7 ) * 

1 000 ,.  O 

.24  P , , , t 

i ) 

■::: 

ADCO  ( i o ) 

i 000 , 0 

WUAN1  , ( 

1 ) 

ADCO  ( 1 9 i )(• 

i ,0000 

SUAN2 ...  ( 

1 ) 

ADCO  ( 20  » :>«• 

1 ,0000 

QUAN3 , ( 

T ) 

:::: 

ADCOi  21  i *■ 

i , 0 0 0 0 

QI.JAN4 ...  ( 

i ) 

ADCO  ( 22  ) 

i ,0000 

ARPS' 1 ...  ( 

1 ) 

:::: 

ADCO  ( 23  ) x- 

i 00 , 00 

ARPS’ 2 , ( 

i j 

ADCO ( 24  i x 

i 00 , 00 

LIST  H i * ( 

1 ) 

:::: 

ADCO ( 25  i x 

i ,0000 
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1 ) « AD CO ( 26 ) « 
1 ) AD  CO  ( 27  ) * 

1 ) * A I) CO  ( 28  ) «■ 


1 *0000 
1 * 0000 
1 ,.0000 


OPTION 

4.20  PLOT  (Variable  Cross-Plot) 

Purpose:  To  provide  X-Y  printer  plot  of  any  two  variables 

which  are  included  in  TRACK  option. 


OPTION 

*•#*#  PLOT 

UNI T > MODE 

**##  L XEQ 

ENTER  NUMBER  OF  PLOT. S' 

••(•  M- « 1 

ENTER  DEPENDENT  AND  INDEPENDENT  PLOT  VARIABLES 

■x  «•■)(■•)(•  y X 

OPTION 


4.21  TERM  (Terminate  Program) 

Purpose:  To  terminate  program. 

Example : 

OPT  ION 
«■***  TERM 
JUNE  21  1974 

TIME  17:  3:30,.  72 
i::'  R 0 0 R A n T E R M I N A T E D 


Example : 
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Appendix  D 


PERFORMANCE  COMPARISON  VARIABLE  GRAPHS 


This  appendix  contains  the  performance  comparison  vari- 
able (PVC)  graphs  for  six  Vehicle  Handling  Test  Procedures  (VHTP’s) 
for  four  vehicles. 

1.  VHTP  No.  1:  Straight  Line  Braking 

A^  — Average  longitudinal  deceleration  from  35  mph  to  10  mph  (g) 

P — Brake  line  pressure  (psi) 
d 
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Fig.  D-1  VHTP  1,  Straight  Line  Braking:  Average  Longitudinal 

Deceleration  from  35  to  10  mph  versus  Brake  Line  Pressure 
(Calspan,  O.E.  tires) 


D-2 


2.  VHTP  No.  2:  Braking  in  a Turn 

— Average  longitudinal  deceleration  from  35  mph  to  10  mph  (g) 
P.,  — Brake  line  pressure  (psi) 

D 

BETADOT  — Peak  vehicle  sideslip  angle  rate  (rad/s) 

Rq(1/R)  — Average  path  curvature  ratio  relative  to  initial  turn 
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Fig.  D-2  VHTP  2,  Braking  in  a Turn:  Average  Longitudinal  Deceleration 

from  35  to  10  mph  versus  Brake  Line  Pressure  (Calspan,  O.E.  tires) 
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Fig.  D-3  VHTP  2,  Braking  in  a Turn:  Sideslip  Rate  versus  Average 

Longitudinal  Deceleration  from  35  to  10  mph  (Calspan.  O.  E.  tires). 
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R0(1/R)-AVG.  PATH  CURVATURE  RATIO 
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Fig.  D-4  VHTP  2,  Braking  in  a Turn:  Average  Path  Curvature  Ratio  versus 
Average  Longitudinal  Deceleration  from  35  to  10  mph  (Calspan, 
O.  E.  tires) 


3.  VHTP  No.  3:  Turning  on  a Rough  Road 

f — Roadroughness  fundamental  frequency,  determined  by  spacing  of 
the  disturbance  elements  in  each  grid  (Hz) 

BETADOT  — Peak  vehicle  sideslip  angle  rate  (rad/s) 

Rq(1/R)  — Average  path  curvature  ratio  relative  to  the  initial  turn 
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BETADOT-PEAK  SIDESLIP  RATE  - RADIANS/SEC 
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Fig.  D-5  VHTP  3,  Turning  on  a Rough  Road:  Sideslip  Rate  versus  Road 
Roughness  Frequency  (Calspan,  O.E.  tires). 
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Fig.  D-6  VHTP  3,  Turning  on  a Rough  Road:  Average  Path  Curvature  Ratio 
versus  Road  Roughness  Frequency  (Calspan,  O.E.  tires) 
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4.  VHTP  No.  4:  Trapezoidal  Steer 

Ay  — Peak  lateral  acceleration  (g) 

SIGMA  — Normalized  steer  angle  (deg) 

R — Peak  yaw  rate  (rad/s) 

R (1/R)  — Path  curvature  response  averaged  over  2 s and  ratioed  to 
a reference  path  curvature  deriving  from  a steady  turn 
of  40  mph  and  l.Og  A^ 

BETADOT  — Peak  vehicle  sideslip  angle  rate  (rad/s) 

BETA  — Peak  vehicle  sideslip  angle  (rad) 
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BETA  - PEAK  SIDESLIP  ANGLE  - RADIANS 
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Fig.  D-7  VHTP  4,  Trapezoidal  Steer:  Sideslip  Angle  versus  Normalized  Steer 
Angle  (Calspan,  O.E.  tires) 
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RS( l/RJ-NORM.  PATH  CURV.  RATIO 
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Fig.  D-8  VHTP  4,  Trapezoidal  Steer:  Normalized  Curvature  Ratio  versus 
Normalized  Steer  Angle  (Calspan,  O.E.  tires) 
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Fig.  D-9  VHTP  4,  Trapezoidal  Steer:  Lateral  Acceleration  versus  Normalized 
Steer  Angle  (Calspan,  O.E.  tires) 
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Fig.  D-10  VHTP  4,  Trapezoidal  Steer:  Yaw  Rate  versus  Normalized  Steer 
Angle  (Calspan,  O.E.  tires) 


D-  14 
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Fig.  D-1 1 VHTP  4,  Trapezoidal  Steer:  Sideslip  Rate  versus  Normalized 
Steer  Angle  (Calspan,  O.E.  tires) 


D-  15 


BETADOT-PEAK  SIDESLIP  RATE  - RADIANS/SEC 


RSC  l/RJ.-NORM.  PATH  CUR. 

, - DODGE  CORONET 
a - CHEVY  BR0OKWO0D 
A - PONTIAC  TRANS  flh 
x - VH  SUPERBEETLE 

18  JUN  76 

Fig.  D-12  VHTP  4,  Trapezoidal  Steer:  Sideslip  Rate  versus  Normalized  Path 
Curvature  Ratio  (Calspan,  O.E.  tires) 
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5.  VHPT  No.  5:  Sinusoidal  Steer 

DEL  PSI  — Vehicle  heading  angle  deviation  after  3.4  s (rad) 

SIGMA  — Normalized  steer  angle  (deg) 

DEL  — Lane  change  deviation  from  "IDEAL"  lane  change  displacement  (ft) 
BETA  — Peak  vehicle  sideslip  angle  (rad) 
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Fig.  D-13  VHTP  5,  Sinusoidal  Steer,  45  mph:  Heading  Angle  Deviation  versus 
Normalized  Steer  Angle  (Calspan,  O.E.  tires) 
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Fig.  D -14  VHTP  5,  Sinusoidal  Steer,  45  mph:  Lane  Change  Deviation 
versus  Normalized  Steer  Angle  (Calspan  Q.E.  tires) 
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BETA  - PEAK  SIDESLIP  ANGLE  - RADIANS 
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Fig.  D-15  VHTP  5,  Sinusoidal  Steer,  45  mph:  Sideslip  Angle  versus  Lane 
Change  Deviation  (Calspan,  O.E.  tires) 
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BETR  - PERK  SIDESLIP  ANGLE  - RRDIRNS 
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Fig.  D-16  VHTP  5,  Sinusoidal  Steer,  45  mph:  Sideslip  Angle  versus 
Normalized  Steer  Angle  (Calspan,  O.E.  tires) 
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DEL  PSI-HEADING  ANGLE  DEVIATION- RADIANS 
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Fig.  D-17  VHTP  5,  Sinusoidal  Steer,  60  mph:  Heading  Angle  Deviation 
versus  Normalized  Steer  Angle  (Calspan,  O.E.  tires) 
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Fig.  D-18  VHTP  5,  Sinusoidal  Steer,  60  mph:  Lane  Change  Deviation 
versus  Normalized  Steer  Angle  (Calspan,  O.E.  tires) 
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Fig.  D-19  VHTP  5,  Sinusoidal  Steer,  60  mph:  Sideslip  Angle  versus  Lane 
Change  Deviation  (Calspan,  O.E.  tires) 
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Fig.  D-2Q  VHTP  5,  Sinusoidal  Steer,  60  mph:  Sideslip  Angle  versus 
Normalized  Steer  Angle  (Calspan,  O.E.  tires) 
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6.  VHTP  No.  6:  Drastic  Steer  and  Brake 

PHI  — Peak  roll  angle  (rad) 

PHIDOT  — Peak  roll  angle  rate  (rad/s) 
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Fig.  D-21  VHTP  6,  Drastic  Steer  and  Brake,  50  mph:  Roll  Angle  versus 
Roll  Angle  Rate  (Calspan,  O.E.  tires) 
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Fig.  D-22  VH  fP  6,  Drastic  Steer  and  Brake,  60  mph:  Roll  Angle 
versus  Roll  Angle  Rate  (Calspan,  O.E.  tires) 
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Appendix  E 


SIMULATION  OUTPUT 


In  addition  to  the  user/computer  transactions  printed  on 
the  hybrid  computer  operator's  printer,  the  simulation  has  several 
outputs  that  are  normally  available  to  the  user.  The  output  is 
summarized  below: 


1.  Vehicle  Handling  Test  Procedure  (VHTP)  comparison 
variable  values, 

2.  Analog  strip  chart  time  history  recordings  (16  vari- 
ables) , 

3.  Digital  printout  of  variables  versus  time  (up  to 
50  variables), 

4.  Comparison  variable  graphs,  and 

5.  X-Y  printer  plot  of  any  two  program  variables. 

The  appropriate  VHTP  comparison  variable  values  are 
printed  following  the  execution  of  a VHTP  maneuver.  Typical  ex- 
amples are  presented  in  Fig.  E-l. 

Sixteen  channels  of  strip  chart  time  history  recordings 
are  available.  Time  histories  for  the  braking  in  a turn  test  pro- 
cedure are  presented  in  Fig.  E-2.  The  variables  are  defined  below 

Figure  E-2,  p.  1: 

1.  Longitudinal  deceleration,  A^  (g) , 

2.  Lateral  acceleration,  A^  (g) , 

3.  Vehicle  yaw  rate,  r (rad/s), 

4.  Steering  wheel  input,  6^  (rad), 

5.  Vehicle  forward  velocity,  u (ft/s), 

6.  Vehicle  side  velocity,  v (ft/s), 

7.  Vehicle  sideslip  angle,  6 (rad),  and 

8.  Turning  radius  of  curvature,  1/R  (ft  ^) . 
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Fig.  E-1  IHVHP  User's  Interactive  Control 
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Fig.  E-2  Time  Histories  — Braking  in  a Turn  (p.  1) 
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Fig.  E-2  Time  Histories  — Braking  in  a Turn  (p.  2) 


Figure  E-2,  p.  2: 


1-4  Angular  velocities  of  the  right  front,  left  front, 
right  rear,  and  left  rear  wheels,  to^,  a^,  ui^, 

respectively,  (rad/s), 

5-7  Deflection  from  the  equilibrium  position  of  the 

right  front  wheel,  left  front  wheel,  and  rear  axle, 

6 , 60,  6 , respectively  (in.),  and 
J.  Z K 

8 Angular  rotation  of  the  rear  axle  with  reference  to 
the  sprung  mass,  <f>  (rad). 

The  digital  printout  of  variables  versus  time  is  the  typi- 
cal output  associated  with  digital  simulation.  The  variables  to  be 
output  can  be  specified  in  the  program  data  deck  or  selected  inter- 
actively during  program  execution.  The  time  interval  for  output  is 
also  interactively  selected.  The  interactive  selection  capability 
is  particularly  useful  for  simulation  validation  or  studying  unex- 
pected dynamic  phenomena.  Any  variable  within  the  simulation  can 
be  selected  for  output.  An  output  example  is  presented  in  Fig.  E-3. 
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Fig.  E-3  Digital  Line  Printer  Output 


To  aid  in  quick  analysis  of  vehicle  performance,  computer- 
generated comparison  variable  plots  are  made  available.  An  example 
plot  for  a trapezoidal  steer  test  procedure  is  presented  in  Fig.  E-4. 
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Fig.  E-4  Performance  Comparison  Variable  Plot 
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A cross-plot  of  any  two  interactive  variables  that  are 
included  in  the  TRACK  option  is  available  to  the  simulation  user. 
An  example  of  the  PLOT  option  and  of  the  required  input  data  is 
shown  below.  Figure  E-5  is  a vehicle  trajectory  plot. 
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Appendix  F 


TIRE  FUNCTION  GRAPHS 


Figures  F-l  through  F-15  are  the  graphs  used  to  validate 
the  tire  model  output  for  a set  of  tire  parameters.  The  figures 
are  followed  by  a copy  of  the  information  available  from  Ref.  19 
for  a particular  tire.  The  parameters  from  this  data  packet  were 
used  to  generate  the  figures. 
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Fig.  F-1  Side  Force  versus  Slip  Angle  with  Normal  Load  Varying,  8 May  1978 
(235  185-14X  Ml  R XWW,  camber  = 0.,  slip  = 0.) 
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Fig.  F-2  Side  Force  versus  Slip  Angle  with  Camber  Angle  Varying,  8 May  1978 
(235  185-14X  Ml  R XWW,  load  = 1060.  lbs.,  slip  = 0.) 
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Fig.  F-3  NCIRC  Force  versus  Slip  with  Normal  Load  Varying,  8 May  1978 
(235  185-14X  Ml  R XWW,  slip  angle  = 0.,  camber  = 0.) 
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Fig.  F-4  Side  Force  versus  Normal  Load  with  Slip  Angle  Varying,  4 May  1978 
(235  185-14X  Ml  R XWW,  camber  = 0.,  slip  = 0.) 
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Fig.  F-8  Align  Torque  versus  Normal  Load  with  Slip  Angle  Varying,  4 May  1978 
(235  185-14X  Ml  R XWW,  camber  angle  = 0.,  slip  = 0.) 
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Fig.  F-9  Align  Torque  versus  Normal  Load  with  Camber  Angle  Varying,  4 May 
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Fig.  F-12  Align  Torque  versus  Normal  Load  with  Slip  Angle  Varying,  5 May  1978 
(235  185-14X  Ml  R XWW,  camber  = 0.,  slip  = 0.) 
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Fig.  F-13  Align  Torque  versus  Normal  Load  with  Camber  Angle  Varying,  4 May 
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Fig.  F-14  OT  Moment  versus  Normal  Load  with  Slip  Angle  Varying,  4 May  1978 
(235  185-14X  Ml  R XWW,  camber  = 0.,  slip  = 0.) 
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Fig.  F-15  OT  Moment  versus  Normal  Load  with  Camber  Angle  Varying,  4 May  1978 
(235  185-14X  Ml  R XWW,  slip  angle  = 0.,  slip  = 0.) 


F- 16 


Tire  Identification 


Notations 


TIRF  Tire  Number 

Oil 

Size 

F78-14 

Manufacturer  (distributor) 

GY 

Brand  Name 

Custom  power 
cushion  polyglas 

Load  Range  (ply  rating) 

B 

Maximum  T&RA  Load  (lb) 

1500 

Maximum  Infl  Press  (psi) 

32 

No.  of  Plies  Tread 

2P  + 2F 

and  Cord 

Material  Sidewall 

2P 

DOT  No. 

MP | L7 | DDA| 333 

Construction  Type 

BB 

Aspect  Ratio , Computed 

76.8 

T&RA  Rim  Width 

5.50 

Shore  Hardness  (std  var) 

59.8  ( ) 

Remarks 

BFG 

Goodrich 

CO 

Cooper 

DA 

Dayton 

DU 

Dunlop 

FI 

Firestone 

GT 

General  Tire 

GY 

Goodyear 

KS 

Kelly  Spring- 
field 

LE 

Lee 

MI 

Michelin 

PI 

Pirelli 

SE 

Sears 

UN 

Uniroyal 

B 

Bias  ply 

BB 

Bias  belted 

R 

Radial  ply 

F 

Fiberglas 

H 

High  performance 
organic  fiber 

N 

Nylon 

P 

Polyester 

R 

Rayon 

S 

Steel 

TT 

Tube-type 

TL 

Tubeless 

TIRF  Run  Identification 


Run  No.  (0602  series) 

389  | 

464 

Road  Speed  (mph) 

30 

Water  Depth  (mil) 

— 

Cold  Infl  Press  (psi) 

24 

100%  Design  Load  (lb) 

1280 

Rim  Width  (in.) 

5.50 

Groove  Depth  (%) 

100 

Road  Skid  No.  Dry 

85 

Wet 

— 
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Tire  Uniformity 

(SAE  recommended  practice  J332A) 


TIRF  Tire  No. 

Oil 

Test  Load  at  28  psi  (lb) 

1090 

Radial  Force  Variation, 
Peak-to-Peak  (lb) 

Total 

22 

First  harmonic 

4 

Lateral  Force  Variation, 
Peak-to-Peak  (lb) 

Total 

8 

First  harmonic 

4 

Mean  Lateral  Force  (lb) 

Forward 

-40 

Reverse 

+27 

Conicity  (lb) 

-9 

Ply  Steer  (lb) 

-33 
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CORNERING  COEFFICIENTS 


RUN  * 389-  2-  6 
CORNERING  stiffness*  lb/rad 

AO  3318.89 

A1  7.40 

A2  2804.77 

camber  stiffness,  lb/rad 

A3  1.266 

A4  6024.23 

PEAK  LATERAL  FRICTION  COEFFICIENT,  LB/LB 

B3  1.143 

B1  —2.848  E— 04 

B4  4.342E— 08 

OVERTURNING  MOMENT,  FT  LB 

Cl  — 1 • 1 62  E— 04 

C2  —5.638E— 05 

C 3 —0.446 

ALIGNING  TORQUE , FT  LB 

K 1 -2.445E-04 

K2  2.343E-Q4 

K3  0.127 

**************************  TEST  DATA  ************************** 


LOAD 

CALPHA 

CA/F2 

NALPHA 

NA/FZ 

NA/CA 

LB 

LB/DEG 

LB/DEG/LB 

FTLB/DEG 

FTLB/DEG/LB 

FT 

2234.8 

119.6 

0.054 

51.6 

0.023 

0 .432 

1913.8 

132.6 

0.069 

46.2 

0.024 

0.349 

1595.0 

144.2 

0.090 

40.0 

0.025 

0.277 

1276.3 

149.5 

0.117 

30.1 

0.024 

0.201 

959.9 

145.0 

0.151 

20.6 

0.021 

0.142 

637.3 

118.3 

0.186 

10.8 

0.017 

0.092 

LOAD 

CGAMMA 

CG/FZ 

NGAMMA 

NG/FZ 

NG/CG 

LB 

LB/DEG 

LB/DEG/LB 

FTLB/DEG 

FTLB/DEG/LB 

FT 

2234.8 

33.0 

0.015 

4.4 

0.002 

0.134 

1913.8 

28.1 

0.015 

4.0 

0.002 

0.142 

1595.0 

25.0 

0.016 

3.6 

0.002 

0.145 

1276.3 

22.4 

0.017 

3.5 

0.003 

0.158 

959.9 

20.6 

0.021 

3.6 

0.004 

0.172 

LOAD 

CG/CA 

HUY  PEAK  SA 

a MUY 

PEAK 

LB 

DEG 

2234.8 

0.276 

0.73 

28.8 

1913.8 

0.212 

0.74 

21.5 

1595.0 

0.173 

0.80 

19.3 

1276.3 

0.150 

0.86 

18.4 

959.9 

0.142 

0.91 

17.1 

637.3 

0.98 

-15.2 
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BRAKING  COEFFIC I ENTS 


RUN : 464  — 2-  6 


PEAK  BRAKING  COEFFICIENT* 

LB/LB 

PO 

I ©0635 

0 .8879 

PI 

-2.127E-04 

3.65  IE-05 

P2 

-8.913E-08 

PEAK  LONGITUDINAL  SLIP 

RO 

-0.180 

R 1 

—2.230E— 06 

SLIDE  BRAKING  COEFFICIENT* 

LB/LB 

SO 

0 *»  78  73 

0 t>  9 8 6 4 

SI 

— 1.257E— 04 

— 4®22 16—04 

S2 

1 o040E— 0? 

* A jjafr  .-{s  >Jo Jofc  >$c  SJcjft  £3jc3{i:$c 

TEST  DATA 

2$: 

A jJnflt  A jkijt  3$:  3}o£  # J}t  £ 

LOAD 

LB 

SL  PEAK 

MUX  PEAK 

MUX  SLIDE 

CS 

LB 

CS/F2 

LB/LB 

1 906©  4 

-0  .196 

0 ©647 

0.562 

2 03  4 1 o 1 

11.55 

1509.0 

—0.170 

0.740 

0.566 

24428.9 

16.43 

1270.4 

-0.172 

0*797 

0.628 

25350.7 

20.99 

954.3 

-0.193 

0.853 

0 ©674 

17271.0 

18.00 
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1 F Y (LB > 


RUM  339-  2-  C 
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1 F V \L RUN  383-  2-  6 
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1 N F X ^ FX  FI  > 


RUN  464-  2“  6 


. SQQl 


6O0 


400 


1 — 

ft 

— 
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Appendix  G 


G-l. 
decks : 


SIMULATION  DATA 


Input  Data  Decks 

This  section  presents  the  listing  of  three  input  data 


1.  Four-wheeled  independent  suspension,  Volkswagen 
Campmobile ; 

2.  Independent  front,  solid  rear  suspension,  Dodge 
Coronet;  and 

3.  Solid  front  and  rear  suspensions  with  dual  rear 
tires,  Winnebago  Motor  Home. 


G-l 


G 1.1.  Four  Wheeled  Independent  Suspension,  Volkswagen  Campmobile 

091  CaRSSS  vw  van 
DELFWl  DELFW2 
TAUC 

CXC  CYC  CZC  CLC  CMC  CNC 
SFXS  SFYS  SFZS 
SNPHIS  SNTHES  SNPSIS 
SFXU  SF YU 

SNPHIU  SNTHEU  SNPSIU 
PHIDT  THEDT  PSIDT 
PHI  THE  PSI 
PDT  QDT  HDT 
P Q R 

UDT  VDT  WDT 
U V W 

PFl  AXAVE  TIMDEC  AYMaX  SlIPI(l)  SLIPI  (2)  SLIPK3)  SLIPI(^) 

PFL  AXAVE  AYMAX  BETDMX  CUVRaT  SLIPIU)  SLIPI ( 2 ) SLIPI ( 3 ) SLIPI ( 4 ) 

BMPN  BMPS  AYMAX  RMAX  CUVRAT  BETDMX 
STR4  RETAMX  BETDMX  CUVRAT  AYMAX  RMAX  PHIMAX 
STR5  AYMAX  DEL  BETAMX  DELPSI  PHIMAX  UIN 
PHIMAX  PHIDMX  RMAX  ZIMX(l)  ZIMX(2)  ZIMX(3)  ZIMX(4)  UIN  hRKUFF 
PFL  AXAVE  AYMAX  BETDMX  CUVRaT  SLIPI(I)  SLIPI(2)  SLIPI ( 3 ) SLIPI(4) 

I OUT ( 0 1 ) 50. 

IOUT ( 02)  100. 

IOUT(03)  50. 

IOUT ( 04 ) 625. 

I OUT ( 05 ) .04 

IOUT ( 06 ) 0.4 
IOUT (07)  2.0 
IOUT ( 08 ) 1.0 

IOUT (09)  .8 

IOUT ( 1 0 ) .003 

IOUT ( 1 1 ) 0.25 
IOUT (12)  0.25 
IOUT (13)  1.25 
IOUT (14)  0.1 

IOUT (15)  .2 

IOUT { 16 ) 1.25 

IOUT (17)  .01 
IOUT (18)  1.25 

NOTUSED ( 1 ) 1. 

NOTUSED ( 1 ) 1. 

IOUT (21)  -1000. 

IOUT ( 22 ) -1000. 

IOUT ( 23 ) -1000. 

IOUT ( 24 ) -1000. 

IOUT ( 25 ) 10000. 

IOUT ( 26 ) 10. 

IOUT ( 27 ) 400. 

IOUT ( 28 ) 1000. 

IOUT ( 29 ) -1000. 

IOUT (30 ) 28. 

IOUT (31)  10. 

IOUT ( 32 ) 10. 

IOUT ( 33 ) 20000. 

IOUT ( 3^ ) 20000. 

IOUT ( 35 ) 20000. 

IOUT (36 ) 20000. 

ETAX  1.4 


MAIN 

main 


main 

main 


G-2 


50 

60 


90 

100 


I OUT ( 38 ) 10000. 

I OUT ( 39 ) 10000. 

I OUT (40)  10000. 
I OUT (41)  10000. 
I OUT ( 42 ) 10000  . 

I OUT (43)  10. 

I OUT ( 44 ) 10000. 

I OUT ( 45 ) 10. 

I OUT ( 46 ) 10000. 

ETaL  1.4 
BTV  1.5706 
ENDNOOAC 
U 1200. 

V 1000. 
w 100. 

PHI  -.66667 
PSI  4. 

THE  0.25 
P 2.0 
Q 0.8 

DEL  1 DT  -100, 

DEL2  10. 

DEL2DT  -100. 

DELI  10. 

DEL3DT  »100. 

DEL3  10. 

DEL4DT  -100. 

DEL4  10. 

UDT  -800. 

VDT  -1500. 

R 4. 

DELFW1  -0.5 
DELFW2  -0.5 
RDT  -20. 

ARPS(l)  -100. 
ARPS ( 2 ) -100. 
ARPS  ( 3 ) -100. 
ARPS ( 4 ) -100. 
SIP  2000. 

S2P  2000. 

ZETDRF  100. 

ZETDLF  100. 

ZFTDRR  100. 

ZETDLR  100. 

QDT  -2. 

PDT  -12. 

WDT  200. 

PHIDT  -2. 

THEDT  -.25 
PSIDT 
ENDNOaDC 
alamda=o. 

P ARAM (341 ) 0.0 

PAR AM ( 342 ) 0.0 

PARAM ( 343 ) 0.0 

PAR AM ( 344 ) 0.0 


MAIN  590 


MAIN  680 


MAIN  890 


indxcn  1 

VEHICLE  MODEL  * VW  CAMPMOBILE  1973 


G-3 


MAIN  900 


0.9509401  .06331873  .04225659  .04367653  .01231053  ,00109759*0.0 
2.757724  -.1297874  0 304593 1 -. 0 0649462- . 0 0 04956 1 , 0 0 0 023590 0 . 0 
-.07321 1 43-. 036340 39-. 01 55650 3- . 0 0 756957- . 00 160251 -.000 129640.0 
-1.010893  .7207570  -. 0 0 40 1 940 . 0 0455590 3- . 0 0 042666- . 0 0 0 099750 . 0 
0.0  0.0  0.0  0.0  0.0  0.0  0.0 
-.05058013-. 06585461 -.02 3690 34-. 00 1560 75. 00 0995467. 000258 120 0.0 


0.0 

0,0 

TABLE 

i * 

BRAKE 

TORQUE 

function 

1000. 

99999, 

8900. 

MA INI  020 

0.0 

0.0 

TAPLE 

n 

* BRAKE 

TORQUE 

FUNCTION 

1 000. 
99999. 

8900. 

MAIN1070 

0.0 

0.00 

table  iii- 

SIDE 

FORCE 

SHAPING 

FUNCTION 

0.05 

.01 

0.1 

.03 

0.15 

.07 

0.2 

.17 

0.30 

.35 

0.4 

.54 

0.6 

.81 

0.8 

.93 

1.0 

99999. 

1. 

MAIN1180 

-10.00,  528.  WIND  PROFILE 

0.  528. 

1000.  528. 

99999. 


-3.14159 

0.535 

0.01 

-0.025 

0.086 

-0.117 

-0.003 

-2.87979 

0.805 

0.85 

-0.435 

0.433 

-0.169 

-0.188 

-2.61799 

0.920 

1.56 

-0.750 

0.674 

-0.259 

-0.280 

-2.35619 

0.810 

2.12 

-1.030 

0.828 

-0.332 

-0.391 

-2.09440 

0.585 

2.16 

-1.275 

0.876 

-0.300 

-0.291 

-1.83260 

0.330 

2,55 

-0.260 

1.115 

-0.139 

-0.212 

-1.57080 

0.105 

2.78 

-0,170 

1.117 

0.062 

-0.066 

-1.3090 

-0.074 

2.74 

-0.432 

1.085 

0.030 

0.117 

-1.0472 

-0.297 

2.63 

-1.195 

0.887 

0.237 

0.250 

-.78540 

-0.472 

2.33 

-1.280 

0.848 

0.252 

0.417 

-.69813 

-0.562 

2.07 

-1.070 

0.800 

0.243 

0.420 

-.61087 

-0.630 

1.84 

-0.910 

0.723 

0.232 

0.416 

-.52360 

-0.680 

1.61 

-0.773 

0.651 

0.221 

0.402 

-.43633 

-0.708 

1.37 

-0.660 

0.562 

0.212 

0,376 

-.34907 

-0.715 

1 .14 

-0.550 

0.478 

0.197 

0.337 

-.26180 

-0.690 

0.87 

-0.445 

0.363 

0.172 

0.272 

-.17453 

-0.640 

0.60 

-0.333 

0.252 

0,139 

0.171 

-.08727 

-0.600 

0.33 

-0.276 

0.138 

0.125 

0.080 

O 

• 

o 

-0.576 

O 

• 

o 

-0.252 

0.011 

0.121 

-0,003 

0.08727 

-0.590 

-0.32 

-0.280 

-0.089 

0.136 

-0,082 

0.17453 

-0.630 

-0.62 

-0.355 

-0.203 

0.153 

-0.168 

0.26180 

-0.680 

-0.89 

-0.465 

-0.316 

0.187 

-0.257 

0.34907 

-0.702 

-1.13 

-0.593 

-0.423 

0.227 

-0.332 

0.43633 

-0.710 

-1.35 

-0.615 

-0.511 

0.255 

-0.380 

0.52360 

-0.690 

-1.65 

-0.660 

-0.619 

0.266 

-0.407 

0.61087 

-0.615 

-1.90 

-1.012 

-0.716 

0.259 

-0.434 

0.69813 

-0.560 

-2.17 

-1.150 

-0.790 

0.262 

-0.439 

0.78540 

-0.472 

-2.33 

-1.280 

-0,848 

0.262 

-0,417 

1.04720 

-0.297 

-2.63 

-1.195 

-0.887 

0.237 

-0.250 

1.30900 

-0.074 

-2.74 

-0.432 

-1,085 

0.030 

-0.117 

1.57080 

0.105 

-2.78 

-0.170 

-1.117 

0.062 

0,066 

1.83260 

0.330 

-2.55 

-0.260 

-1.115 

-0.139 

0.212 

2.09440 

0.585 

-2.16 

-1.275 

-0.876 

-0.300 

0.291 
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2.35619 

0.810 

2.12 

-1.030  -0.828  -0.332 

0,309 

2.61799 

0.920 

1.56 

-0,750  -0.674  -0,259 

0,280 

2.07979 

0.805 

0.85 

-0.435  -0.443  -0.169 

0,188 

3.14159 

0.535 

0.01 

-0.025  -0.066  “0.117 

0.003 

99999, 

0.0 

o 

• 

o 

99999, 

0.0 

0.0 

STEER  PROFILE 

0.25 

-13.6 

1.25 

-31.45 

1.55 

135. 

1.75 

125.46 

2.0 

62.73 

2.3 

-200. 

2.5 

-204. 

6. 

-204. 

99999. 

-10.0 

-20688.73 

V W 

FRONT  SPRING  DATA 

-5.67 

-1580.44 

VW 

FRONT 

-4.92 

-908.44 

V W 

FRONT 

-3.74 

-462.46 

VW 

FRONT 

0. 

0. 

.43 

55.47 

VW 

front 

10. 

9003.42 

VW 

FRONT 

99999, 

-10.0 

-20688.73 

vw 

FRONT  SPRING  DATA 

-5.67 

-1580.44 

VW 

FRONT 

-4.92 

-908.44 

vw 

FRONT 

-3.74 

-482.46 

vw 

FRONT 

0. 

0. 

.43 

55.47 

vw 

front 

10. 

9003.42 

vw 

FRONT 

99999. 

-10. 

-16375.09 

vw 

REAR  SPRING  DATA 

-4.61 

- 1466 . 35 

vw 

RFAR 

-3.54 

-980.57 

VW 

REAR 

-1.57 

-334.41 

vw 

RFAR 

0. 

0. 

vw 

REAR 

2.28 

485.64 

vw 

REAR 

10. 

8136.16 

vw 

REAR 

99999. 

-10. 

-16375.09 

vw 

REAR  SPRING  DATA 

-4.61 

-1466.35 

vw 

REAR 

-3.54 

-980.57 

vw 

REAR 

-1.57 

-334.41 

vw 

RFAR 

0. 

0. 

vw 

RFAR 

2.28 

485.64 

vw 

REAR 

10. 

0136.16 

vw 

REAR 

99999. 

-100 

-466. 

FRONT  SHOCK  ABSORBER  DATA 

MICKOBUS 

-26.7 

-150. 

-13.25 

-92. 

-4.71 

-27. 

0.0 

0.0 

4.71 

130. 

13.25 

390. 

26.7 

585. 

100. 

1648. 

99999. 

-100 

-466. 

FRONT  SHOCK  ABSORBER  DATA 

MICROBUS 
AERO  data 
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-26.7 

-150. 

-13.25 

-92. 

-4.71 

-27. 

0.0 

0.0 

4.71 

130. 

13.25 

390. 

26.7 

585. 

100. 

1648. 

99999. 

-100. 

-425. 

rear  shock 

absorber 

Data 

-26.7 

-125. 

-13.25 

-70. 

-4.71 

-30  . 

0.0 

0.0 

4.71 

50. 

13.25 

175. 

26.7 

315. 

100. 

1078. 

99999, 

-100. 

-425. 

REAR  shock 

ABSORBER 

Data 

-26.7 

-125. 

-13.25 

-70. 

-4.71 

-30. 

0.0 

0.0 

4.71 

50. 

13.25 

175. 

26.7 

315. 

100. 

99999, 

1078. 

066  40. 

40. 

40. 

30. 

40. 

45  . 

50. 

074  0. 

0. 

0. 

30. 

0. 

0. 

0. 

076  5. 

10. 

10. 

5. 

5.5 

4. 

3. 

114  62. 

0. 

39. 

72. 

0. 

0. 

0. 

115  1. 

0. 

1. 

1. 

1. 

0. 

0. 

116  .5 

100. 

.5 

.5 

. 4 

100, 

100. 

117  3. 

0. 

3. 

0. 

0. 

0. 

0. 

118  3. 

0. 

3. 

0. 

0. 

0. 

0. 

121  300. 

200. 

200. 

0, 

o. 

0. 

1500 

124  0. 

0. 

0. 

0. 

0. 

2. 

1. 

125  0. 

0. 

0. 

0. 

0. 

0. 

1. 

126  0. 

0. 

0. 

0. 

0. 

1. 

1 . 

128  3. 

1. 

3. 

4. 

2. 

5. 

6. 

192  1. 

. 1 

. 1 

.1 

.1 

.1 

.05 

198  0. 

0. 

0. 

12. 

0. 

0. 

0. 

199  0. 

0. 

0. 

57.6 

0. 

0. 

0. 

201  0. 

0. 

0. 

1 000. 

0. 

0* 

0. 

277  0. 

0. 

0. 

8. 

0. 

0. 

0. 

278  0. 

0. 

0. 

0. 

0. 

0. 

.52 

279  0. 

0. 

0. 

0. 

0. 

0. 

1.02 

123  0. 

0. 

0. 

0. 

0. 

0. 

0. 

123  0. 

0. 

0. 

0. 

0. 

0. 

0. 

123  0. 

0. 

0. 

0. 

0. 

0. 

0. 

123  0. 

0. 

0. 

0. 

0. 

0. 

0. 

123  0. 

0. 

0. 

0. 

0. 

0. 

0. 

123  0. 

0. 

0. 

0. 

0. 

0. 

0, 

123  0. 

001  8.6 

002  .507 

003  .489 

004  19.98 

0. 

0. 

0. 

0. 

0. 

0. 
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005  19,92 

006  49,65 

007  44,85 

008  54.8 

009  57,2 

010  0. 

011  7380, 

012  24980, 

013  25660. 

014  1140. 

015  696969. 

016  30. 

017  153000. 

018  10. 

019  129. 

020  129. 

021  213. 

022  213. 

023  0. 

024  0, 

025  33. 

026  33. 

027  56. 

028  56. 

029  0.0 

030  0 . 

031  12.75 

032  2000. 

033  .5 

034  4566.64 

035  7.87 

036  2303.58 

037  0.294 

038  -1747.37 

039  0, 

040  0 . 

041  8592. 

042  16.3 

043 

044 

045 

046 

047  8.27 

048  696969. 

049  8.93 

050  9.28 

051  .3 

052  5.375 

053  0. 

05^  0. 

055  .59 

056  3.47 

057  -3.47 

058  -.0873 

059  .0873 

060  1.0 
061  0,0 
062  0.0 

063 

064 


MAIN1620 


M A I N2 1 9 0 


MAIN2220 

MAIN2230 


G-7 


MAIN2240 

065 

MA I N2250 

066 

40. 

M A I N2260 

067 

M A IN2270 

068 

MAIN2280 

069 

MAIN2290 

070 

MAIN2300 

071 

M a I N23 1 0 

072 

MAIN2320 

073 

MAIN2330 

0 74 

075 

.005 

MAIN2350 

76 

5.0 

077 

894. 

078 

89  4, 

079 

894. 

080 

894  . 

M A I N240  0 

081 

M A I N24 1 0 

082 

MAIN2420 

083 

MAIN2430 

084 

085 

-.0002056 

086 

0.0 

087 

1.045 

088 

.00000003991 

MAIN2480 

089 

MAIN2490 

090 

M A I N250  0 

091 

0.0 

092 

-1.54 

093  -1.03  MAIN2530 


094 

MAIN2540 

095 

MAIN2550 

096 

MAIN2560 

097 

M A I N257  0 

098 

MAIN2580 

099 

MAIN2590 

100 

MAIN2600 

101 

MAIN2610 

102 

MAIN2620 

103 

MAIN2630 

104 

MAIN2640 

105 

M A I N2650 

106 

MAIN2660 

107 

1.0 

MAIN2670 

108 

.4 

109 

o.o 

no 

4428. 

111 

738. 

MAIN2710 

112 

0 . o 

MAIN2720 

113 

1 . 

MAIN2730 

114 

62. 

MAIN2740 

115 

1.0 

MAIN2750 

116 

0.5 

MAIN2760 

117 

3. 

MAIN2770 

118 

3. 

119 

0.0 

120 

0.0 

MAIN2800 

121 

300. 

MAIN2810 

122 

MAIN2820 

123 

124 

MAIN2830 

G-8 


125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 


3.0 

0. 

.038 
.320 
44000 . 

44000 • 

6.2 

6.20 

17.6 
126. 

5.68 

.010 

-.010 

0. 

0.0 

0. 

0. 

.0000001147 

0.0 

0.0 

0,0 

0.0 

0,0 

0.0 

0.0 

0.0 

0.0 

0.0 

4233.6 
94.5 
1094.0 


73. 

75. 

75. 

2. 


.25 

1.0 


0.0 


MAIN2840 
MAIN2650 
M A X N2860 
M A I N2870 
MAIN2B80 


MAIN3G10 


MAI N3 180 
MAIN319Q 
MAIN32Q0 
MAIN3210 
MAIN3220 
MAIN3230 
MAIN3240 
M A I N325Q 
MAIN3260 
MAIN3270 


MAIN3300 

MAIN3310 

MAIN3320 

MAXN3330 


MAIN3360 

MAIN3370 


13 

13 

13 


G-9 


185  .13 

186  27.6 

187  27.6 

188  10.6 

189  10.6 

190 

MAIN3490 

191 

MAIN3500 

192  1 . 

MAIN3510 

193 

MAIN3520 

194 

MAIN3530 

195  0.0 

196  0. 

197  0. 

198 

M A I N3b70 

1 99 

MAIN3580 

200  1.5 

MAIN3590 

201 

MAIN3600 

202  0.8988 

203  -.00009497 

204  0.8988 

205  -.00009497 

206  .6770 

207  .6770 

208  .03 

209  0. 

MAIN3680 

210  -.00003226 

211  -.00003226 

212  0 . 

MAIN3710 

213  0 • 

MAIN3720 

214  0. 

M A I N3730 

215  0.0 

216  0.0 

217  0.0 

218  0. 

main 3770 

219  0. 

220  0. 

221  0.0 

222  0.0 

223  0. 

MAIN3820 

224  0 • 

M A I N3830 

225  0 . 

MAIN3B40 

226  0 . 

MAIN3850 

227  0 . 

M A I N3860 

228  0 • 

M A I N3870 

229  0 . 

MAIN3880 

230  0. 

M A I N3890 

231  400. 

232  400. 

233  1.0 

234 

235 

236 

237 

238  1.9 

239  1.9 

240  1.0 

241  1.0 

242  -.0000372 

243  -.000022 

244  .0000020 

G- 10 


245  - 

.0002056 

246  0 

.0 

247  1 

.045 

248  . 

00000003991 

249  ~ 

.0031764 

250  . 

0029568 

251  . 

66 

252  - 

.0031764 

253  . 

0029568 

254  . 

66 

255  0 

'.0 

256  - 

■.001302 

257  - 

>.0027288 

258  ”5.796 

259  C 

1.0 

260  -.001302 

261  -.0027288 

262  -5.796 

263  ( 

). 

264  ( 

). 

265  ( 

K 

266  ■ 

.29 

267  , 

.03 

268  < 

3. 

269  l 

3. 

270  l 

0. 

271  i 

o. 

272 

.13 

273 

. 03 

274 

0. 

MAIN4340 

275 

0.0 

M A IN4350 

276 

0 . o 

MA IN4360 

277 

0 . 

MAIN4370 

278 

0. 

MAIN4380 

279 

0 . 

MAIN4390 

280 

0 . 

281 

282 

MAIN442Q 

283 

0. 

284 

0 . 0 

285 

3.56 

MAIN4450 

286 

0.0 

287 

2. 

M A I N4470 

288 

0. 

MAIN448Q 

289 

4 . 

290 

.5 

291 

4566.64 

292 

7.87 

293 

2303.58 

294 

0.294 

295 

-1747.37 

075 

.01 

112 

50  . 

175 

.9985 

193 

0.0 

194 

100. 

195 

1200. 

215 

100. 

216 

100. 

217 

1 . 

G-U 


304 

./  ENDUP 


G-1.2.  Independent  Front,  Solid  Rear  Suspensions,  Dodge  Coronet 


091  CAKCAL  D0DGE71 
DElFWl  DELFW? 

TAUC 

CXC  CYC  CZC  CLC  CMC  CNC 
SFXS  SFYS  SFZS 
SNPHIS  SIMTHES  SNPSIS 
SFXU  SFYU 

SNPHIU  SNTHEU  SNPSIU 
PHIDT  THEDT  PSIDT 
PHI  THE  PSI 
PDT  QDT  HDT 
P Q R 

UDT  VDT  WDT 
U V W 


PFL  AXAVE  TIMDEC  AYMAX  SLIPI(l)  SLIPI  (2)  SLIPI<3)  SLIPI(4) 

PFL  AXAVE  AYMAX  BETDMX  CUVRaT  SLIPI(I)  SLIPI ( 2 ) SLlPI (3)  SLIPI(4) 
BMPN  BMPS  AYMAX  RMAX  CUVRaT  BFTDMX 
STR4  BETAMX  BETDMX  CUVRAT  AYMAX  RMAX  PHIMAX 
STR5  AYMAX  DEL  BETAMX  DELPSI  PHIMAX  UIN 
PHIMAX  PHIDMX  RMAX  ZIMX(1)  ZIMX(2)  ZIMX(J)  ZIMX(4)  UIN  BHKUFF 
PFL  AXAVE  AYMAX  BETDMX  CUVRaT  SLIPI<1)  SLIPI (2)  SL I P I ( 3 ) SLIPI(4) 
IOUT(Ol)  50. 

IOUT ( 02 ) 100. 

I OUT (03)  50. 

IOUT(04)  625. 

IOUT ( 05)  .04 

IOUT ( 06 ) 0.4 

IOUT ( 07 ) 2.0 
IOUT  ( 08 ) 1.0 

IOUT ( 09 ) .8 

IOUT (10)  .003 
IOUT (11)  0.25 
IOUT ( 1 2 ) 0,25 
IOUT  C 1 3 > 1.25 
IOUT  (14)  0.1 

IOUT (15)  .2 

IOUT (16)  1.25 

IOUT (17)  .01 

IOUT (18)  1.25 

NOTUSED ( 1 ) 1. 

NOTUSED ( 1 ) 1. 

IOUT (21 ) -1000. 

IOUT ( 22 ) -1000. 

IOUT (23)  -1000. 

I OUT ( 24 ) -1000. 

IOUT ( 25 ) 10000. 

IOUT ( 26 ) 10. 

I OUT ( 27 ) 400. 

I0UT(28)  1000. 

IOUT ( ?9)  -1000. 

IOUT ( 30 ) 28. 

IOUT (31)  10. 

IOUT ( 32  > 10. 

IOUT ( 33 ) 20000. 

20000. 

20000. 

20000. 


IOUT  04) 
IOUT (35) 
IOUT (36) 
ETaX  1.4 


- G- 13 


MAIN  50 
MAIN  60 


MAIN  90 
MAIN  100 


I OUT ( 38 ) 10000. 

I OUT ( 39 ) 10000, 

I OUT (40)  1 0000  . 

I OUT (41)  10000. 

I OUT ( 42 ) 1 0000. 

I OUT  ( 43 ) 10. 

. I OUT ( 44 ) 10000. 

I OUT ( 45 ) 10. 

I OUT ( 46 ) 10000. 

ETaL  1.4 
BT V 1.5706 

endnodac 

U 1200. 

V 1 000. 

W 100. 

PHI  -.66667 
PSI  4. 

THE  0.25 
P 2.0 
Q 0.8 

DEL10T  -100. 

DEL?  10. 

DEL2DT  -100. 

DELI  10. 

DELPOT  -100. 

DEL«  10. 

PH  I ROT  -10. 

PHIR  1. 

UDT  -BOO. 

VDT  -1500. 

R 4. 

DELEW1  -0.5 
DELFW2  -0.5 
RDT  -? 0 . 

ARPS(l)  -100. 

ARPS ( 2 ) -100. 

ARPS ( 3 ) -100, 

ARPS ( 4 ) -100. 

SIP  1000. 

S2P  1000. 

ZETDRF  100. 

ZETDLF  100. 

ZETDRR  100. 

ZETDLR  100. 

QDT  -2. 

PDT  -12. 

WDT  200. 

PHIDT  -2. 

THEDT  -.25 
PSIDT  -2. 

ENDNOaDC 
PAR AM ( 34  1 ) 0.0 

P ARAM  ( 342 ) 0.0 

PAR AM  ( 343 ) 0.0 

PARAM ( 344 ) 0.0 

INDXCN  1 

VEHICLE  MODEL  * DODGE  CORONET  1971 
-0.38  .1061661  .1684393  .01604185 


MAIN  590 


MAIN  880 

MAIN  890 
MAIN  900 

-.00579372-, 0022083b  0.0 


G- 14 


MAIN9110 


0.75 

0.0 

-0,27 

-.2416662 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 

0. 

1000. 

20640. 

99999. 

0. 

0. 

1000. 

20640. 

99999, 

0. 

0. 

.05 

.01 

.1 

.03 

.15 

.07 

.2 

.17 

.3 

.35 

.4 

.54 

.6 

.81 

.8 

.93 

1. 

1. 

99999, 
-1000  . 

528. 

0. 

528. 

1000. 

528. 

99999. 

0.0 

0.0 

99999. 

0.0 

0.0 

99999. 

0,0 

0.0 

0.25 

-13.6 

1.25 

-31.45 

1.55 

135. 

1.75 

125.46 

2.0 

62.73 

2.3 

-200. 

2.5 

-204. 

6. 

-204. 

99999, 

-10.0 

-1688. 

-2.4 

-252, 

0.0 

0.0 

2.1 

221. 

10.0 

4866. 

99999, 

-10.0 

-1688. 

-2.4 

-252. 

0.0 

0.0 

2.1 

221. 

10.0 

4866, 

99999, 

-10.0 

-2342. 

-4.4 

-528. 

0.0 

0.0 

3.6 

432. 

10.0 

5962. 

99999. 

-10.0 

-2342. 

-4.4 

-528. 

0,0  0.0  0.0  0,0  0.0 
-.00944941.01291661  00089631-, 00 125  0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0,0 

0.0 

0.0 

0.0 

o.o 

0.0 

TABLE  I 

- FRONT  BRAKE 

TORqUE 

FUNC1 ION 

TABLE  II 

- REAR  BRAKE 

torque 

FUNCTION 

table  iii-  side  force  shaping  function 


WIND  PROFILE 


0.0  0.0  0.0  0.0  0.0 


STEER  PROFILE 


RIGHT  FRONT  spring  data 


LEFT  FRONT  SPRING  DATA 


RIGHT  HEAR  SPRING  DATA 


LEFT  HEAR  SPRING  DATA 


MAIN9140 

main 9150 

MAIN9190 
M A IN9230 


MAIN9410 


AERO 


G- 15 


0.0 

432. 

5962 


0.0 

3.6 

10.0 

99999, 


-100. 

-433. 

RIGHT 

FRONT 

SHOCK 

ABSORBER 

data 

0.0 

0.0 

100. 

936. 

99999 

-100. 

-433. 

LF.FT 

FRONT 

' SHOCK 

ABSORBER 

data 

0.0 

0 . 0 

100. 

936. 

99999 

. 

-100. 

-199. 

RIGHT 

rear 

SHOCK 

absorrfr 

Data 

-7.2 

-59.9 

0.0 

0.0 

100. 

663. 

99999 

. 

-100. 

-199. 

LEFT 

REAR 

SHOCK 

absorber 

data 

-7.2 

-59.9 

0.0 

0.0 

100. 

663  • 

99999 

066 

40. 

40. 

40. 

30. 

40. 

45  . 

50. 

074 

0. 

0. 

0. 

30. 

0. 

0. 

0. 

076 

5. 

10. 

10. 

5. 

5.5 

4. 

3. 

112 

55. 

114 

62. 

0. 

82. 

139. 

0. 

0. 

0. 

115 

1 . 

0. 

1. 

1. 

1. 

0. 

0, 

116 

.5 

100. 

.5 

.5 

• 4 

100. 

100. 

117 

3. 

0. 

3. 

0. 

0. 

0. 

0. 

118 

3. 

0. 

3. 

0. 

0. 

0. 

0. 

121 

300. 

200. 

200. 

0. 

0. 

0. 

1000 

124 

0. 

0. 

0. 

0. 

0. 

2. 

1 . 

125 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

126 

0. 

0. 

0. 

0. 

0. 

1. 

1. 

128 

3. 

1 . 

3. 

4. 

2. 

5. 

6. 

192 

1. 

. 1 

. 1 

.1 

. 1 

.1 

.05 

198 

0. 

0. 

0. 

12. 

0. 

0. 

0. 

199 

0. 

0. 

0. 

57.6 

0. 

0. 

0. 

201 

0 . 

0. 

0. 

1000. 

0. 

0. 

0. 

277 

0. 

0. 

0. 

6. 

0. 

0. 

0. 

278 

0. 

0. 

0. 

0. 

0. 

0. 

.52 

279 

o. 

0. 

0. 

0. 

0. 

0. 

1.02 

123 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

123 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

123 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

123 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

123 

0. 

0, 

0. 

0. 

0. 

0. 

0. 

123 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

001 

8.43 

002 

0.51 

003 

0.82 

004 

11.3 

005 

11.3 

006 

49.3 

007 

68.7 

008 

59.8 

009 

61.8 

010 

47.0 

Oil 

3758. 

G- 16 


012 

23047. 

013 

23327. 

014 

530. 

015 

550. 

016 

30. 

017 

40400  . 

018 

10. 

019 

105.0 

020 

105.0 

021 

120.0 

022 

120.0 

023 

0. 

024 

-5100. 

025 

40 . 0 

026 

40  • 0 

027 

38.0 

028 

38.0 

029 

0. 

030 

0.020 

031 

13.2 

032 

1 000  . 

033 

0.75 

034 

2701  . 

035 

10.14 

036 

2533. 

037 

1.30 

038 

4591  . 

039 

0.0 

040 

0.0 

041 

8000  . 

042 

14.2 

043 

044 

045 

046 

047  6.4 

048  0.0 

049  9.4 

050  9.4 

051  0.7 

052  2.71 

053  0,0 

054  0.0 

055  -0.66 

056  4.59 

057  -4.59 

058  -.1309 

059  .1309 

060  1.0 
061  0,0 
062  0.0 

063 

064 

065 

066  40. 

067 

068 

069 

070 

071 


MAIN9800 


M A I N990  0 


MAIN0200 
MAIN021 0 
MAIN0220 

MAINQ240 
MAIN0250 
M A I N0260 
MAIN0270 


- G-17 


072 

MAIN0290 

073 

MAIN0300 

074 

MAIN0310 

075 

.005 

76 

5.0 

077 

1450. 

070 

1450. 

079 

1450. 

000 

'1450. 

001 

062 

003 

004 

005 

-.00033 

006 

0.0 

007 

1.220 

080 

.0000000759 

009 

MAIN0460 

090 

MAIN0470 

091 

0.0 

MAINO40O 

092 

-0.0 

093 

-.60 

094 

MAIN0510 

095 

MAIN0520 

096 

MAIN0530 

097 

M A I N0540 

090 

MAIN0550 

099 

M A I N0560 

100 

MAIN0570 

101 

MAINO50O 

102 

MAIN0590 

103 

MAIN0600 

104 

MAIN0610 

105 

MAIN0620 

106 

MA I N0630 

107 

1.0 

MAIN0640 

100 

0.5 

109 

0.0 

110 

0.0 

111 

0.0 

112 

0.0 

113 

1 . 

MAIN0700 

114 

25. 

115 

1.0 

116 

0.5 

117 

3. 

110 

3. 

119 

MAIN0760 

120 

MAIN0770 

121 

300  . 

122 

MAIN0790 

123 

MAINO0OO 

124 

MAINO01O 

125 

MAIN0820 

126 

MAINO03O 

127 

MAIN0840 

120 

3.0 

129 

0. 

MA I NO  060 

130 

0.06 

131 

.2792 

G- 18 


13?  55900. 

133  55900. 

134  6.62 

135  6.6? 

136  11.0 

137  54. 

138  5.20 

139  .00785 

140  .00785 

141  0. 

142  88. 

143  .03 

144  .04 

145  .001 

146  .10 

147  .010 

148  .001 

149  .006 

150  .001 

151  .001 

152  .0001 

153  .0001 

154  .0003 

155  .0004 


156  1 

500  . 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

73. 

170 

73. 

171 

73. 

172 

2. 

173 

174 

175 

0.25 

176 

1. 

177 

178 

179 

180 

O 

• 

o 

181 

182 

0.17 

183 

0.17 

184 

0.17 

185 

0.17 

186 

9.36 

187 

9.36 

188 

6.63 

189 

6.63 

190 

191 

MAIN0980 


MAXN1 140 
MAIN1 150 
MAIN1160 
MAIN1170 
MAIN1 180 
MAIN119C 
MAIN1200 
MAIN1210 
MAIN1220 
MAIN1230 
MAIN1240 
MAIN1250 


MA IN1290 
MA IN1300 
MAIN1310 
MAIN1320 

MA INI  340 
M A I N 1 350 


MA I Nl 470 
MAIN1480 


G- 19 


MAIN 1 49Q 

19? 

1 . 

MAIN1500 

193 

MAIN1510 

194. 

MAIN1520 

195 

196 

0 . 

197 

0. 

198  „ 

199 

M A IN  1 570 

200 

1.5 

201 

202 

0.94 

203 

-.00008 

204 

0.94 

205 

-.00008 

206 

0.65 

207 

0*65 

208  . 

,03 

209 

0. 

210 

0. 

MAIN  1680 

211 

o.o 

212 

0. 

213 

0. 

MAIN1710 

214 

0. 

215 

0. 

216 

0. 

217 

0. 

218 

0. 

219 

0. 

220 

0 . 

221 

0 . 

222 

0 . 

223 

0 . 0 

224 

o. 

225 

0 . 

226 

0. 

227 

0 . 

228 

0. 

229 

o. 

230 

o. 

231 

400  . 

232 

400  . 

233 

1.0 

234 

235 

236 

237 

238 

1. 

239 

1 . 

240 

.67 

241 

.67 

242 

-.0000393 

243 

-.0000332 

244 

,00000175 

245 

-.00033 

246 

0.0 

247 

1.228 

248 

.0000000759 

249 

-.00318 

250 

.00349 

251 

1.404 

G-20 


252 

-.00318 

253 

.00349 

254 

1.404 

255 

o.o 

256 

-.0015 

257 

-.005244 

258 

-5.592 

259 

0.0 

260 

-.0015 

261 

-.005244 

262 

-5.592 

263 

-0.13 

264 

-.03 

265 

.0 

266 

0.15 

267 

.015 

268 

.0 

269 

0.089 

270 

.01 

271 

.0 

272 

o.o 

273 

.0 

274 

.0 

275 

o.o 

276 

0.0 

MAIN2340 

277 

0. 

MAIN2350 

278 

0. 

MAIN2360 

279 

0. 

M A I N237  0 

280 

0. 

281 

282 

MAIN2400 

283 

o. 

284 

2.7 

285 

3.9 

286 

0.0 

287 

1 . 

MAIN2450 

288 

0. 

289 

4. 

MAIN2470 

290 

0.75 

291 

2701. 

292 

10.14 

293 

2533. 

294 

1.30 

295 

4591 . 

001 

8.82 

004 

10.9 

005 

10.8 

006 

50.5 

007 

67.5 

Oil 

3832. 

012 

24003. 

013 

24311. 

092 

-1.1 

093 

-1.08 

MAIN2660 

304 
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G-1.3.  Solid  Front  and  Rear  Suspension  with  Dual  Rear  Tires, 
Winnebago  Motor  Home 


091  CARCAL  MOTOR 
DELFW1  DELFW2 
TAUC 

CXC  CYC  CZC  CLC  CMC  CNC 
SFXS  SFYS  SFZS 
SNPHIS  SNTHES  SNPSIS 
SFXU  SF YU 

SNPHIU  SNTHEU  SNPSIU 
PHIDT  THEDT  PSIDT 
PHI  THE  PSI 
POT  QDT  RDT 
P Q R 

UDT  VDT  WDT 
U V W 


PFL  AXAVE  TIMDEC  AYMAX  SLIPI(I)  SLIPI (2)  SLIPI (3)  SLIPI<4> 

PFL  AXAVE  AYMAX  BETDMX  CUVRAT  SLIPI(I)  SLIPI ( 2 ) SLIPI (3)  SLIPI(4)  MAIN 

BMPN  BMPS  AYMAX  RMA X CUVRAT  BETDMX  MAIN 

STR4  BETAMX  BETDMX  CUVRAT  AYMAX  RMAX  PHIMAX 
STR5  AYMAX  DEL  BETAMX  DELPSI  PHIMAX  UIN 
PHIMAX  PHIOMX  RMAX  ZIMX(l)  ZIMX(2)  ZIMX(3)  ZIMX(4)  UIN  BRKOFF  MAIN 

PFL  AXAVE  AYMAX  BETDMX  CUVRAT  SLIPI(I)  SLIPI ( 2 ) SLIPI (3)  SLIPH4)  MAIN  1 


I OUT (01)  50. 

I OUT ( 02 ) 100. 

IOUT ( 03 ) 50. 

I OUT ( 04 ) 625. 

IOUT ( 05 ) .04 

IOUT ( 06 ) 0.4 

IOUT (07)  2.0 
I OUT (08)  1.0 

IOUT ( 09 ) .8 

I OUT (10)  .003 

I OUT (11)  0.25 
IOUT (12)  0.25 
I OUT (13)  1.25 
I OUT (14)  0.1 

I OUT (15)  .2 

I OUT (16)  1.25 

I OUT (17)  .01 

I OUT (18)  1.25 

NOTUSED ( 1 ) 1. 
NOTUSED ( 1 ) 1. 

IOUT (21)  -1000. 
IOUT (22)  -1000. 
I OUT ( 23 ) -1000. 
IOUT ( 24 ) -1000. 
IOUT ( 25 ) 10000. 

IOUT ( 26 ) L0. 

IOUT ( 27 ) 400. 
IOUT ( 28 ) 1000. 

IOUT ( 29 ) -1000. 

I OUT (30)  28. 

IOUT (31)  10. 

IOUT ( 32 ) 10. 
IOUT ( 33 ) 20000. 

I OUT ( 34 ) 20000. 

IOUT ( 35 ) 20000. 

IOUT ( 36 ) 20000. 

ETAX  1.4 


50 

60 

90 

00 
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I OUT ( 38 ) 10000. 

I OUT ( 39 ) 10000. 
I OUT (40)  10000. 

I OUT (41)  10000. 

I OUT ( 42 ) 10000. 
I OUT ( 43 ) 10. 

I OUT ( 44 ) 10000. 
I OUT ( 45 ) 10. 
TOUT ( 46 ) 10000. 


ETAL  1.4 
BTV  1.5706 
ENDNODAC 
U 1200. 

V 1000. 

W 100. 

PHI  -.66667 
PSI  4. 

THE  0.25 
P 2.0 
Q 0.8 

DELFDT  -100. 

PHIF  1. 

PHIFDT  -10. 

OELF  10. 

DELRDT  -100. 

DELR  10. 

PHIRDT  -10. 

PHIR  1. 

UDT  -800. 

VDT  -1500. 

R 4. 

DELFW1  -0.5 
DELFW2  -0.5 
RDT  -20. 

ARPS ( 1 ) -100. 
ARPS ( 2 ) -100. 
ARPS ( 3 ) -100. 
ARPS ( 4 ) -100. 
SIP  4000. 

S2P  4000. 

ZETDRF  100. 

ZETDLF  100. 

ZETDRR  100. 

ZETDLR  100. 

QDT  -2. 

PDT  -12. 

WOT  200. 

PHIDT  -2. 

THEDT  -.25 
PSIDT  -2. 

ENDNOADC 

PAR AM ( 341 ) 0.0 

PARAM ( 342 ) 0.0 
PARAM ( 343 } 0.0 
PARAM ( 344 ) 0.0 


INDXCN  1 


VEHICLE  MODEL  * WINNEBAGO  MOTOR  HOME  TYPE  A {DODGE  RM  400/158.5"  WB) 

0.0  0.0  0.0  0.0  0.0  0.0 


MAIN  590 


MAIN  880 


MAIN  890 
MAIN  900 


' G-23 


0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

TABLE 

I * 

BRAKE 

TORQUE  FUNCTION 

80. 

0.0 

1000. 

53000. 

1600. 

99999. 

75000. 

0.0 

0.0 

TABLE 

II 

* BRAKE 

TORQUE  FUNCTION 

80. 

0.0 

1000. 

53000. 

1600. 

99999. 

75000. 

0. 

0. 

TABLE 

III 

- SIDE 

FORCE  SHAPING 

FUNCTION 

.05 

.01 

. 1 

.03 

.15 

.07 

.2 

.17 

.3 

.35 

.4 

.54 

.6 

.81 

.8 

.93 

1. 

99999. 

1 . 

MAIN1 180 

1128. 

0.0 

WIND 

profile 

DATA 

1140. 

1056. 

1248. 

1056. 

1260. 

99999. 

0.0 

0.0 

.78 

0.0 

.15 

0.0 

.19 

0.0 

AERO 

0.08727 

.79 

.33 

.29 

.12 

.25 

-.12 

0.1745 

.83 

.58 

.45 

.20 

.29 

-.15 

0.2618 

.90 

.90 

.55 

.34 

.33 

-.15 

0.3491 

.94 

1.33 

.84 

.48 

.35 

-.15 

0.4364 

.94 

1.82 

1.11 

.64 

.37 

-.17 

1.6 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

3.14 

99999. 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

.08727 

0.0 

.1745 

0.0 

.2618 

0.0 

.3491 

0.0 

.4364 

0.0 

1.6 

0.0 

3.14 

99999. 

0.0 

0.0 

0.0 

STEER 

profile  DATA 

0.25 

-13.6 

1.25 

-31.45 

1.55 

135. 

1.75 

125.46 

2.0 

62.73 

2.3 

-200. 

2.5 

-204. 

6. 

99999. 

-204. 

-10.0 

-6579. 

RIGHT 

FRONT 

SPRING  DATA 

G-2  4 


-2.3 

-1035.0 

0.0 

0.0 

3.1 

1395.0 

10.0 

10089. 

99999. 

-10.0 

-6579. 

LEFT 

FRONT 

SPRING 

i DATA 

-2.3 

-1035.0 

0.0 

0.0 

3.1 

1395.0 

10.0 

10089. 

99999. 

-10.0 

-10366.5 

RIGHT 

REAR 

SPRING 

DATA 

-3.9 

-3412.5 

0.0 

0.0 

2.7 

2362.5 

10.0 

15137.5 

99999. 

-10.0 

-10366.5 

LEFT 

REAR 

SPRING 

DATA 

-3.9 

-3412.5 

0.0 

0.0 

2.7 

2362.5 

10.0 

15137.5 

99999. 

-100. 

-391.8 

RIGHT 

FRONT 

SHOCK 

ABSORBER 

-8.4 

-107.9 

0.0 

0.0 

1.4 

165.4 

6. 

280.5 

100. 

1182.9 

99999. 

-100. 

-391.8 

LEFT 

FRONT 

SHOCK 

ABSORBER 

-8.4 

-107.9 

0.0 

1.4 

6. 

100. 

99999. 

-100. 

-9.8 

0.0 

0.8 

4.4 
100. 
99999. 
-100. 
-9.8 


0.0 

165.4 

280.5 
1182.9 

-799.8 

-34. 

0.0 

58.8 
108.3 

618.8 

-799.8 

-34. 


RIGHT  REAR  SHOCK  ABSORBER  DATA 


LEFT  REAR  SHOCK  ABSORBER  DATA 


0.0 

0.8 

4.4 

100. 

99999 

066 

i ^ 

40. 

0.0 

58.8 
108.3 

618.8 

40. 

40. 

30. 

40. 

45. 

50. 

074 

0. 

0. 

0. 

30. 

0. 

0. 

0. 

076 

5. 

10. 

10. 

5. 

5.5 

4. 

3. 

114 

62. 

0. 

62. 

77. 

0. 

0. 

0. 

115 

1. 

0. 

1. 

1. 

1. 

0. 

0. 

116 

.5 

100. 

.5 

.5 

.4 

100. 

•100. 

117 

3. 

0. 

3. 

0. 

0. 

0. 

0. 

118 

3. 

0. 

3. 

0. 

0. 

0. 

0. 

121 

300. 

200. 

200. 

0. 

0. 

0. 

1000 

G-25 


124  0.  0. 

125  0.  0. 

126  0.  0. 

128  3.  1. 

192  1.  .1 

198  0.  0. 

199  0.  0. 

201 ' 0.  0. 

277  0.  0. 

278  0.  0. 

279  0.  0. 

123  0.  0. 

123  0.  0. 

123  0.  0. 

123  0.  0. 

123  0.  0. 

123  0.  0. 

123  0.  0. 


001  24.609 

002  1.721 

003  2.888 

004  36.30 

005  36.19 

006  99.41 

007  59.09 

008  66.15 

009  66.12 

010  41.24 

011  40300. 

012  219100. 

013  216500. 

014  7100. 

015  2400. 

016  30. 

017  153000. 

018  10. 

019  450. 

020  450. 

021  875. 

022  875. 

023  0. 

024  153000. 

025  100. 

026  100. 

027  150. 

028  150. 

029  0.0 

030  -.01 

031  16.87 

032  4000. 

033  1.0 

034  635.2 

035  11.98 

036  5447.9 

037  1.89 

038  6306.2 

039  56.62 

040  75.62 

041  8000. 

042  17.5 


0. 
0. 
0. 
3. 
. 1 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 


0.  0. 

0.  0. 

0.  0. 

4.  2. 

.1  .1 

12.  0. 

57.6  0 . 

1000.  0. 

8.  0. 

0.  0. 

0.  0. 

0.  0. 

0.  0. 

0.  0. 

0.  0. 

0.  0. 

0.  0. 

0.  0. 


2.5 

0. 

1. 

5. 

.1 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


1. 

1. 

1. 

6. 

.05 

0. 

0. 

0. 

0. 

.52 

1.02 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


MAIN1820 
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043 

044 

045 

046 

047  27.0 

048  1500. 

049  21.3 

050  48.0 

051  1.30 

052  4.56 

053  31.0 

054  .07 

055  1.31 

056  6.08 

057  -6.08 

058  -.12217 


059  .12217 

MAXN2190 

060  1.0 

061  0. 

062  0. 

MAIN2220 

063 

MAXN223Q 

064 

MAIN224Q 

065 

MAXN225Q 

066  40. 

MAXN226Q 

067 

MAIN2270 

068 

MAIN2280 

069 

MAIN2290 

070 

MAXN23QQ 

071 

MAIN2310 

072 

MAXN2320 

073 

MAIN2330 

074 

075  .005 

MAI N235Q 

76  5.0 

077  3040. 

078  3040. 

079  3040. 

080  3040. 

MAXN240Q 

081 

MAXN2410 

082 

MAIN2420 

083 

MAIN2430 

084 

085  -.000236 

086  0.0 

087  1.32 

088  .0000000297 

MAXN2480 

089 

MAXN2490 

090 

MAIN2500 

091  0.0 

092  0.0 

093  0.0 

MAIN2530 

094 

MAXN2540 

095 

MAX  N2550 

096 

MAIN2560 

097 

MAX  N257  0 

098 

MAIN2580 

099 

MAXN2590 

100 

MAX  N260  0 

101 

MAXN2610 

102 
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103 

104 

105 

106 

107 

1.0 

108 

.4 

1 09 

0.0 

110 

4428. 

111 

738. 

112 

0.0 

113 

1. 

114 

62. 

115 

1.0 

116 

0.5 

117 

3. 

118 

3. 

119 

0.0 

120 

0.0 

121 

300. 

122 

123 

124 

125 

126 

127 

128 

3.0 

129 

0. 

130 

.078 

131 

.279 

132 

150000 

133 

150000 

134 

8.02 

135 

8.02 

136 

11. 

137 

120. 

138 

7.50 

139 

.009 

140 

-.009 

141 

0. 

142 

0.0 

143 

0. 

144 

0. 

145 

.00000 

146 

0.0 

147 

0.0 

148 

0.0 

149 

0.0 

150 

0.0 

151 

0.0 

152 

0.0 

153 

0.0 

154 

0.0 

155 

0.0 

156 

9100. 

157 

294. 

158 

1094. 

159 

160 

161 

162 

MAIN2620 

MAIN2630 

MAIN2640 

MAIN2650 

MAIN2660 

MAIN2670 

MAIN2690 

MAIN2700 

MAIN2710 

MAIN2720 

KAIN2730 

MAIN2740 

MAIN2750 

MAIN2760 

MAIN2770 


MAIN2800 

MAIN2810 

MAIN2820 

MAIN2830 

MAIN2840 

MAIN2850 

MAIN2860 

MAIN2870 

MAIN2880 


MAIN3000 

MAIN3010 


MAIN3060 

MAIN3070 

MAIN3080 

MAIN3090 

MAIN3100 

MAIN3110 

MAIN3120 

MAIN3130 

MAIN3140 


MAIN3180 

MAIN3190 

MAIN3200 

MAIN3210 
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MAIN3220 


163 

MAIN3230 

164 

MAIN3240 

165 

MAIN3250 

166 

MAIN3260 

167 

MAIN3270 

168 

169  73. 

170  75. 

MAIN3300 

171  75. 

MAIN3310 

172  2. 

MAIN3320 

173 

MAIN3330 

174 

MA1N3340 

175  0.25 

176  1. 

MAIN3360 

177 

MAIN3370 

178 

179 

180  0.0 

181 

182  .20 

183  .20 

184  .20 

185  .20 

186  118.15 

187  118.15 

188  73.5 

189  73.5 

MAIN3490 

190 

MAIN3500 

191 

MAIN3510 

192  1 . 

MAIN3520 

193 

MAIN3530 

194 

MAIN3540 

195 

196  -.0018 

197  .0018 

MAIN3570 

198 

MAIN3580 

199 

MAIN3590 

200  1.5 

MAIN3600 

201 

202  1.04 

203  -.0000758 

204  1.04 

205  -.0000758 

206  .72 

207  .72 

208  .03 

MAIN3680 

209  0. 

MAIN3690 

210  0. 

MAIN3700 

211  0.0 

MAIN3710 

212  0. 

MAIN3720 

213  0. 

MAIN3730 

214  0. 

MAIN3740 

215  0. 

MAIN3750 

216  0. 

MAIN3760 

217  0. 

MAINI3770 

218  0. 

219  .0349 

220  -0.0349 

221  .0698 

222  .0698 
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223 

0. 

MAIN3820 

224 

0. 

MAIN3830 

225 

0. 

MAIN3840 

226 

0. 

MAIN3850 

227 

0. 

MAIN3860 

228 

0. 

MAIN3870 

229 

>0. 

MAIN3880 

230 

0. 

MAIN3890 

231 

600. 

232 

600. 

233 

0. 

234 

235 

236 

237 

238 

1.13 

239 

1 .13 

240 

1.0 

241 

1.0 

242 

-.000020 

243 

-.000020 

244 

.0000015 

245 

-.000236 

246 

0.0 

247 

1.32 

248 

.0000000297 

249 

-.00157 

250 

.00148 

251 

1.608 

252 

-.00157 

253 

.00148 

254 

1.608 

255 

0.0 

256 

-.000624 

257 

.00240 

258 

-9.132 

259 

0.0 

260 

-.000624 

261 

.00240 

262 

-9.132 

263 

0. 

264 

0. 

265 

0. 

266 

0. 

267 

0. 

268 

0. 

269 

0. 

270 

0. 

271 

0. 

272 

0. 

273 

0. 

274 

0. 

275 

0.0 

276 

0.0 

277 

0. 

278 

0. 

279 

0. 

MAIN4380 

280 

0. 

MAIN4390 

281 

282 
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MAIN4420 


283  0. 

284  0. 

285  0.  MAIN4450 

286  0.0 

287  0. 

288  1. 

289  6. 

290  1.0 

291  635.2 

292  11.98 

293  5447.9 

294  1.89 

295  6306.2  MAIN4550 

304 

./  ENDUP 
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G-2 . 


Wheel  Spring  and  Shock  Absorber  Characteristics 


G-2.1  Wheel  Spring  Characteristics 


The  entries  in  this  table  are  the  values  of  the  slopes 
versus  suspension  displacement  for  the  no-load  (curb  weight)  ve- 
hicle configuration.  The  units  of  the  entries  are  lb/in.  and  in. 


Vehicle 

Spring  Force  Effective 
at  the  Wheel  for  the 
Independent  Front  Sus- 
pension and  at  the 
Spring  Location  for 
the  Solid  Front  Axle 

Spring  Force  Effective 
at  the  Wheel  for  the 
Independent  Rear  Sus- 
pension and  at  the 
Spring  Location  for 
the  Solid  Rear  Axle 

VW 

935 

for 

6^  0.43 

991 

for 

6^  2.28 

Campmob ile 

129 

for 

-3 . 7 4<6<  0.43 

213 

for 

-1.57<6<  2.28 

361 

for 

-4.92<6£-3.74 

328 

for 

-3.54<6£-1.57 

896 

for 

-5 . 67<6^-4 .92 

454 

for 

-4.61<6s:-3.54 

4413 

for 

6 £-5. 67 

2766 

for 

6^-4. 61 

Dodge 

558 

for 

6>  2.1 

864 

for 

4^  3.6 

Coronet 

105 

for 

-2.4  <6<  2.1 

120 

for 

-4.4 

<4<  3.6 

189 

for 

6<-2 . 4 

324 

for 

4^-4. 4 

Winnebago 

1260 

for 

4^  3.1 

1750 

for 

4^  2.7 

Motor  Home 

450 

for 

-2.3  <4<  3.1 

875 

for 

-3.9 

<4<  2.7 

720 

for 

4^-2. 3 

1140 

for 

4^-3 . 9 

G-32 


G-2.2 


Shock  Absorber  Characteristics 


The  entries  in  this  table  are  the  values  of  the  slopes  ver- 
sus suspension  velocity.  The  units  of  the  entries  are  lb/(in./s)  and 
in . / s . 


Vehicle 

Viscous  Damping  Force 
Effective  at  the  Wheel 
for  the  Independent 
Front  Suspension  and 
at  the  Spring  Location 
for  the  Solid  Front 
Axle 

Viscous  Damping  Force 
Effective  at  the  Wheel 
for  the  Independent 
Rear  Suspension  and  at 
the  Spring  Location 
for  the  Solid  Rear 
Axle 

VW 

5.14  for  6^  11.8 

11.24  for  6>  9.8 

Campmobile 

17.63  for  3.0£6<  11.8 

35.60  for  4.2£6<  9.8 

9.55  for  0£6<  3.0 

22.86  for  0^6<  4.2 

4.06  for  -15.0^6<  0 

7.93  for  -10.6£6<  0 

2.09  for  6 <-15 . 0 

2.49  for  6<-10.6 

Dodge 

9.36  for  6:>  0 

6.63  for  4^  0 

Coronet 

4.33  for  6<  0 

8.32  for  -7. 2<4<  0 

1.50  for  4<  -7.2 

Winnebago 

9.6  for  4^  6.0 

5.34  for  4^=  4.4 

Motor  Home 

25.02  for  1.4 s£<  6.0 

13.76  for  0.8^4<  4.4 

118.15  for  0^4  < 1.4 

73.50  for  0^4<  0.8 

12.84  for  -8.4^4<  0 

3.47  for  -9 . 8^4 < 0 

3.10  for  4<  -8.4 

8.49  for  4<  -9.8 
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Camber,  Caster,  and  Toe  Data 


To  obtain  these  data,  the  wheel  was  moved  from  the  full 
rebound  position  to  compression  bump  stop.  In  order  to  use  these 
data  in  calculations,  one  must  know  the  values  of  camber,  caster, 
and  toe  at  a reference  value  of  suspension  displacement  that  de- 
pends upon  vehicle  loading.  The  units  of  the  entries  are  in.  and 
deg.  The  data  presented  here  were  measured  with  reference  to  a 
no-load  (curb  weight)  vehicle  configuration. 


Vehicle 

Displace- 

ment 

Camber 

Caster 

Toe 

VW  Campmobile  (right  front 

0.5 

1.00 

2.67 

-0.10 

wheel)  (static  displace- 

0.0 

0.95 

2.77 

-0.07 

ment  = 0.0) 

-1.0 

0.90 

2.85 

-0.05 

-2.0 

0.80 

2.95 

-0.02 

-3.0 

0.70 

3.00 

0.00 

-4.0 

0.60 

3.05 

0.03 

-5.0 

0.50 

3.08 

0.07 

-5.5 

0.35 

3.05 

0.10 

VW  Campmobile  (right  rear 

2.5 

0.80 

0.00 

-0.333 

wheel)  (static  displace- 

2.0 

0.45 

0.00 

-0.258 

ment  = 0.0) 

1.0 

-3.00 

0.00 

-0.146 

0.0 

-1.00 

0.00 

-0.050 

-1.0 

-1.75 

0.00 

0.000 

-2.0 

-2.50 

0.00 

0.000 

-3.0 

-3.35 

0.00 

-0.004 

-4.0 

-4.25 

0.00 

-0.075 

-4.5 

-4.85 

0.00 

-0.162 

Dodge  Coronet  (left  front 

0. 

0 

0.75 

0 

wheel)  (static  displace- 

1. 

0.41 

0.00 

-0.37 

ment  = 3.0) 

2. 

0.98 

0.00 

-0.59 

3. 

1.26 

0.00 

-0.85 

4. 

1.22 

0.00 

-1.05 

5. 

0.95 

0.00 

-1.21 

6. 

0.43 

0.00 

-1.36 

Winnebago  Motor  Home 

The  attitudes  of 

the  wheels  of  a 

solid  axle  suspension  are 

evaluated 

from  axle  angular 

displacement,  sus- 

pension  geometry  (roll  steer) , and 
suspension  compliance. 
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PARAMETER  VALUES  - MODEL  C - VEHICLE  MODEL  * VW  CAMPMOBILE  1973 
1 MS=  8.6000  , 2 MUE=  0.50700  , 3 MUR*  0.48900 
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PARAMETER  VALUES  - MODEL  C - VEHICLE  MODEL  * DODGE  CORONET  1971 
1 MS=  8.8200  . 2 MUF  = 0.51000  * 3 MUR=  0.82000  . 4 ZE  = 10.900  * 5 ZR  = 
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G-5.  APL  Operational  Vehicle  Data  Decks 


Suspension 

Vehicle 

Front 

Rear 

VW  Campmobile  (73) 

I 

I 

VW  Super  Beetle  (71) 

I 

I 

Chevrolet  NOVA  (74) 

I 

S 

Chevrolet  NOVA  (75) 

I 

S 

Ford  Torino  (75) 

I 

S 

Ford  Mustang  (71) 

I 

S 

Dodge  Coronet  (71) 

I 

S 

Pontiac  Trans  Am  (71) 

I 

S 

Chevrolet  Brookwood  Station  Wagon  (71) 

I 

S 

Chevrolet  Caprice  Station  Wagon  (73) 

I 

S 

F-250  Pickup  with  11  Foot  Open  Road 
Camper  (74) 

I 

S 

Ford  Econoline  Van  (69) 

I 

S 

Ford  F-250  Pickup  (74) 

I 

S 

Plymouth  Fury  (77) 

I 

S 

Ford  Pinto  (76/77) 

I 

S 

Chevrolet  Monte  Carlo  (76) 

I 

S 

Ford  LTD  (76) 

I 

S 

AMC  Pacer  (77) 

I 

S 

Mercury  Bobcat  Wagon 

I 

S 

Chevrolet  NOVA  (76) 

I 

S 

Open  Road  Motor  Home  Type  C (74) 
(Dodge  MB  300/127"  WB) 

I 

S , D 

Jeep  Wagoneer  (74) 

S 

S 

Winnebago  Motor  Home  Type  A (74) 
(Dodge  Rm  400/158.5"  WB) 

S 

S , D 

White  Road  Boss  (4x2)  Heavy  Truck  (74) 

s 

S , D 

GMC-PD  4107  Intercity  Bus  (66) 



s 

S,D 

I = Independent 
S = Solid 

D = Dual  tires,  one  rear  axle 
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Appendix  H 


IMPROVED  HYBRID  COMPUTER  VEHICLE  HANDLING  SIMULATION 
IMPLEMENTATION  DOCUMENTATION 


H-l.  DSL/91  Digital  Static  Check  Program 

Presented  here  is  the  computer  listing  of  the  DSL/91 
digital  static  check  program. 


INPUT  FCR  CSL/91  TRANSLATOR  (VERSION  2) 


TITLE  NEW  VEPICLE  FRCB  = 91 
PARAM  I A XL  E = C 

PARAP  AKT1=125G.,AKT2=1250.,AKT3=1250.,AKT4=1250. 
PARAP  RF=— 24200. ,RR=-69GCQ. 

PARAP  TSF  = 32  .2  5, T SR= 4 3 . 2 5 , T F= 57 . 3 , TR  = 5 7. 5 
PARAM  HFC=.63,PRC=2.22,ZF=16.01, ZR=15.8 
PARAP  C FP  = 7 3 . ,CRP=60., A =49.61,8=60.39 
PARAP  APS  = 7 .3  , AMUF  = . 937, APUR= .888 

PARAP  AKF  = 7QC.  ,AKR3  = 210. ,AKR4=21Q. 

PARAP  I F=498  • , IR=459  . , S C AL E = 2CG0 . 

PARA*  A I X = 73 30., A I Y= 2 574  0. , A 1 Z=29700 . , A I XZ= 250. 
PARAP  F3F1=8C.  ,F3F2-23. ,F3R3=152.2 » F 3R4  = 49. 

PARAP  CPCN1F=0.0  ,CMCMP  = 0.0 
PARAM  GEE=  38  fc  . 4 
PARAP  BETA=.25 
PARAP  C T I N = . C05 

INCCN  UG=  704 . , VO=12.,  W0  = 5. 

INCCN  PC= .04  , CO  .037  , RO.C2 

INCON  THEO=- .00209,  PHIO-.Q03,  PSI0  = .002 

INCCN  CEL1  = . 38  3,  DEL  1DT  = 10 • 

INCON  DEL2=0 . 866 , DEL2DT=I5. 

INCON  C EL  3= . 20C,UEL4=.30C,DtL3DT=5.,CEL4DT=7. 
INCON  D E L F - . 8 , DEL FDT  =25 . ,PHI F= .02, PH I FD= .6 
INCON  SNPPiIF=-  163. 

INCCN  CELRCT=2C.r  PPIRC=.55 
INCON  0ELR=. 6 , PHIR=.0L895 

INCON  ANTI  1=  8 74.  , ANT  I 2=  6 74.  , ANT  I 3 = 6 92.  , A NT  I 4=69 2. 
INCCN  FYUl=-33.45,FYU2=33.45,FYU3=-iC., FYU4= 10. 
INCON  SFXU=-20.0, SPY L= 30.0, SFZS=- 1090. 

INCCN  F ZU 1 = - 97  2 • , FZU2=-972 . , FZU3=- 84 4 . , F ZU4=-844 . 
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I !\  C C N SNPHIU=-IL  L.  »SMHEL=-27A.  , SNPS  IU=-755.»SNPHIR=-L63. 

INCCN  RPS1  =57.01,  R PS  2 = 57.01,  RPS3=56.55,  RPS4=56.55 

CCMRL  TSTART  = 0.  ,FINTIM=.002,CELT=.0Ci 
CYNAM  IC 

F = P0 
0 = CO 
R = KO 

0 = uu 

V = VO 

W = IftO 

THE  = THEC 

PHI  = FHIG 

PSI  = PSIO 

COSTHt  = CC$ ( THEC  ) 

SINPHI =SIN(PHIC) 

S I,MTHE  = S IN  ( THEC) 

CCSPH  I =CLS (PHIC ) 

P2=PC*  PC 
C 2 = CC*  CC 
R 2 = RC*  PC 
GR=GG*RO 
F R=  PC* PC 
kP  = PC*  kC 
MR- VG*PO 

wc=wc*cc 

LR  =RC* 1C 
UQ=UG*CG 
FG=PC*CC 
VP=VG*PG 
TFC2  = TF/2. 

TRO  2 = TR/2. 

TSFC2  = TSF/2. 

T SRC  2 = TSR/2. 

G = GE  E 

SM  = AVS+AMJF  + AMLR 

GAM  1 = A*AMUF  - 8*  AMUR 

1 F { I AX  l E .N  E .0  ) GG  TO  1GC 

G A M 2 = AMUF*( ZF+DELF ) +AMUR* ( ZR  + DELR ) 

G AM  3 = GAME 
GAM4  = 0.0 

GAM  5 = Af''UF*A*53[2*-AMUK*8*,it2 

GAM6  = 2.*AMUF*DELFDT+2.*AMUR*CELRCT 

G A M 7 = 2 .*AMUF*LELFDT*  ( ZF+CELF  ) + 2 . * AMU R *D t L ROT  * (ZR  + DELR ) 
GAM  8 = 0.0 

CAM9  = 2.*AMUF*A*CELFCT-2.*AMUR*8*DELRCT 
A I XP  = APUF*(  ZF+DELF)**2+AMUR*(ZR+CELR)**2 
A I YP  = A IXP 

A I Z P = ANUF*4**2+ANUR*E**2+ I F+ IR 

AIXZP  = AMLF*A*(Z F+DELF  }-AMUR*R*( ZR  + DELR) 

GC  TC  10  GO 


H-  2 


100 


200 


1000 


* 


I F ( 1AXLE  .Nt.  1)  GO  TO  20C 

GAM2  = AMUF*(ZF  + < DEL  1 +DE L2  ) / 2 .0  ) + AMUR*!  ZR+DELR  ) 

GAM3  = GAM? 

GAM4  = AMUF*TFC2/2.0*( DEL1-DEL2) 

GAM5  = AMUF*( A**2-TF02**2)  * AMUR*B**2 

GAM6  = ANUF*{ DELI CT+DEL2CT J + ? . * A MUR  * C EL R CT 

GAM7  = AMUF*  ( ZF*  ( CEL1DT  + DEL2DT)  * DEL  1*DEL1DT  + DEL 2*DE L2DT  ) 

♦ 2.0*AMUP*  (ZR  + CELR ) *CELRCT 
GAM  8 = AMUF*TFC2* ( CE LID T-DEL2D 7 ) 

GAM9  = AMUF*A*(L'EL1CT  + CEL2CT  ) - 2 . *AMUR*B*DELRDT 

A I XP  = AMUF/?.C*(  ( ZF  + DEL1) **2  + ( Z F+Q  E L2 ) **2  ) * AMUR* ( ZR  + DELR ) **2 
A I YP  = A IXP 

A I ZP  = A MUF* ( A**?+TFG2**2)  + AMUR*8**2  + IR 

AIXZP  = AMUF*A/2.Q*{  (ZF+DEL1)  + (ZF-4DEL2))  - AMUR*  B*  ( ZR  + CELR ) 

GC  TC  1000 
CCNTINLE 

GAM2  = AMUF*lZF  + { CEL1+DEL2  1 / 2 . I+AMLR* ( ZR+ { CEL3+DEL4) /2 . i 
GAM3  = GAM? 

GAM4  = AMUF*TFC2/2.*(DEL1-DEL2  ) *A MLR* T RC2 /2 . * ( DEL3-DEL4  ) 

GAM5  = AMUF*{ A*A-TF02**2)+AMUR*(8*B-TRC2**2) 

GAM6  = AMUF*{ DELI CT+DEL2CT )+AMLR*{ CEL3CT+CEL4DT ) 

GAM7  = AMUF*{ZF*(DELlDT+DEL2DT)+DELl*DELlDT*DtL2*DEL2DT) 

♦ AMUR*  (ZR* (CEL3CT+CEL4CT) * C EL 3 *Dfc L 0 CT  + D EL  4 * DEL  4 C T ) 

GAM8  = AMUF*TF  C2*  ( CE  L 1 DT— DEL  2D  T ) *-  A MUR*  TR02*  C DE  L3DT— DEL4  D T ) 

GAM9  = AMUF*A* ( CEL1CT  + CEL2DT  ) - AMUR  * E* ( CEL3CT+DEL4DT ) 

A I XP  = AMUF/2.* ((  ZF  + DELlJ**2+( ZF  + DEL2 ) **2 ) 

4 AMUR/2.  *{  (ZR+DEL3) **2  + ( ZR+DE  L4 )**2 ) 

A I YP  = A IXP 

A I ZP  = AMUF*( A*A+TF02**2)+ AMLR*(B*e+TRC2**2) 

AIXZP  = AMUF*A/2.*  ( ( ZF  + CEL  l ) + ( ZF  + DEL?  ) ) 

- AMUR*  B /2 . * ( ( ZR  + CEL3)-M  ZR  + DEL4)  ) 

CCNTINLE 

AIXXP  - A I X 4 A I X F 
AIYYP  = A I Y + A I Y P 
AIZZP  = AIZ+AIZP 

CN SC AL  ED  CAC  VALLES  FCR  SYSTEM  EGLATIGNS 

CACOO  = GAM2/SM 

C AGO  1 = GAMl/SM 

CAC  02  = GAM1/SM 

CAC03  = C-AM2/SM 

CAC04  * GAM3/AIXXP 

CAC05  = (AIXZ+A  IXZP) /AI XXP 

CAC06  = GAM7/AIXXP 

CAC07  = GAM4/A I XXP 

CAC08  = 1.0/AIXXP 

CAC09  = GAM2/AIYYP 

CAC 10  = AIXZ/AIYYP 

CAC11  = AIXZP/AIYYF 

CAC 12  = GAM7/AIYYP 
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CAC  13 

•= 

GAM4/ A IYYP 

CAC  14 

= 

l.O/AIYYP 

CAC  1 5 

= 

(A  I XZ+A  IXZP) / A I Z ZP 

CAC16 

= 

GAV1/A  IZZP 

CAC  17 

= 

CAP4/A  IZZP 

CAC20 

= 

55.71 

CAC2L 

= 

55.71 

CAC  22 

= 

64.76 

C A C 2 3 

= 

64.76 

CAC  26 

- 

l. /SM* (-GAN6*Q+SFXU) 

CAC27 

= 

l./SM*(GAM6*P+SFYU) 

CAC  28 

= 

l. /AMS*SFZS 

CAC29 

= 

(( AIY-A  IZ  + AIXP )*QR+SNPPIU) /AI XXP 

CAC30 

= 

( ( A IZ-A  IX- A IYP ) *PR  +SNTHEU ) /AI YYP 

CAC31 

- 

( ( A IX- A IY-GAM5 ) *PQ+G A M8*0+ GAM9*P+SNPS I U I / A IZZP 

CAC  32 

= 

3692.0 

CAC33 

= 

3692.0 

CAC  3 4 

= 

*151.0 

CAC35 

= 

2151.0 

CAC3  7 

= 

ANT  11 

CAC28 

- 

AN  T I 2 

CAC39 

= 

ANT  13 

C AC  40 

= 

AN  T I 4 

I F ( IAXLE 

.imE.O)  GO  TO  30C 

CAC28 

r 

SF  ZS/10.939 

CAC41 

= 

1. 0/AMUF*( FZU1+FZU2) 

CAC42 

= 

1 .0/ I F*SNFHIF 

CAC  4 3 

= 

1. O/AMLR* ( FZU3+FZU4) 

CAC44 

= 

1. 0/  IR*SNPFIR 

GC  TC  2CC0 

200  I F ( IAXLE. NE. 1)  GO  TO  4CC 

CAC41  = 2.0/AMtF* ( FZU1-FVU 1*TAM 2 .0*HFC/TF ) ) 
D AC  4 2 = 2.0/AMIF* { FZU2-FYU2*T  AM  2 . *HF  C/TF ) ) 
CAC43  = 1.0/AMUR* ( FZU3+FZU4) 

CAC44  = 1.0/IR*SNPFIR 
GO  TO  20C0 
40  C CCNTINLE 

CAC41  = 2.0/AMLF* (FZU1-FYUL*TAM2.Q*HFC/TF) ) 
CAC42  = 2.0/AMUF*{FZU2-FYU2*TAM2.*HFC/TFI) 
CAC30  = .2702 

CAC43  = 2. / AMUR  *( FZU3-FY03*TAN(2.*HRC/TR) ) 
CAC44  = 2./AMUR*(FZU4+FYU4*TAN(2.*HRC/TR) ) 
2000  CCNTINLE 

I F ( IAXLE  .NE.O ) GO  TO  50C 
ZET1  = TSFC2*PF  IF  + CELF 
ZET2  = -TSF02*PHI F+DELF 
ZET3  = TSR02*PFIR  ♦ OELR 
ZET4  =-T SRC2*  PF I R ♦ QELP 
ZET1DT  = TSF02*PHI FD+CELFDT 
/ E T 2 DT  = -T  SFQ2*  PH IFD  + CELFDT 
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ZET3DT  = TSR02*PHIRD  ♦ DELRDT 
ZET4DT  = -TSR02*PH  IRD  + DELRDT 
F IF  1 - S IoM  L . tZETlDTI *CFP 
F 1 F 2 = SIGM  1 . tZFTZDT  ) *CFP 
F l R 3 = SIGN ( 1 . ,ZET3DT ) *CRP 
p 1R  4 = S IGM  1. * Zt  T 4DT I *CRP 
F2F1  = AKF*ZET1 
F 2 F 2 = AKF*ZE  T 2 
F2R3  = AKR  3*Z  E T 3 
F 2 R 4 = AKR4*ZET4 

51  = - F3F1-F2F  l-( RF/TSF )*PHI F-FIF 1 + CAC37 

52  = -F3F2-F2F2-I RF/TSF )*PHF-FIF2+DAC28 

53  = -F3R?-F2P?-( PP/TSP )*PHIR  - FIR?  + CAC^9 
3 4 = -F3F4-F2R4-I RR/TSR  )*PF  IR  - F1R4  + DAC  40 
GC  TC  50 CO 

500  IFt IAXLE.NE. 1)  GO  TO  60C 
ZET1  = CELL 
ZET2  = DEL? 

ZET3  = TSR02*PFIR  + DELP 
ZET4  =-TSRC2*PFIR  + DELF 
ZETIDT  = DEL  ID  T 
ZET2DT  = CEL2DT 

ZET3DT  = T SRO  2 * PH  I R 0 + DELRDT 

ZET4DT  =-TSRG2*PH  IkD  + DELRDT 
FIF1  = SIGMI  . ,ZETIDTJ*CFP 
F IF  2 = S IGN  ( 1 . tZE  T2DT) *CFP 
F1R3  = S IGN ( 1 . ,ZET3DT ) *CRP 
F IR  4 = SIGMI.  *ZET4DT)*CRP 
F2FI  = AKF*ZET1 
F 2 F ? = AKF*ZET? 

F 2R3  = AKR3*ZbT3 
F2R4  = A KR4 *Z  E T4 
AGXRLl  = (DEL?-DELl)*RF/TF**? 

AUXRL2  = -AUXRL1 

SI  = ALXPL 1-F3FI-F2FL-F LFi+DAC^7 
S 2 = ALXRL2-F3F2-F2F2-F 1F2  + DAC38 

53  = -F3P3-F2R2-(PP/TSR )*PFIR  - F1R3  + DAC  39 

54  = -F3R4-F2R4-I RR/TSR J*PHI R - FIR4  ♦ DAC40 
GC  TO  5GC0 

6G0  CCNTINLE 

ZET1  = DELI 

ZET2  = DtL2 

ZET3  = DEL3 

ZET4  = D EL  4 

ZETIDT  = DELIDT 

ZET2DT  = DEL2DT 

ZET3DT  = DEL3DT 

ZET4DT  = DEL4DT 

F 1 F 1 = SIGN! 1. ,ZET1DT)*CFP 

F1F2  = SIGMI.  ,Z£T20T)*CFP 
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* 
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* 

* 


* 


F IK 3 = SIGN(  L.  ,ZET2DT) *CRP 

F1R4  = S IbN(  1 . , ZET4DT  ) *CRP 

F2FI  = AKF*ZETl 

F2F2  = AKF*ZET2 

F2R3  ■=  AKR3*ZET3 

F2R4  = A KR  4*Z E T 4 

AUXRL1  = ( CEL2-CEL  1) *RF/TF**2 

AUXRL2  = -AUXRL1 

AUXRL3  = ( DEL4-DEL2)*RR/TR**2 

AUXRL4  = -AUXRL3 

SI  = ALXRL  1-F3F  1-F2F1-F1FI+CAC37 
S 2 = A0XRL2-FJF2-F2F2-F  1F2+DAC38 

53  = AIXRL3-F3R3-F2R3-F LR34CACq9 

54  = A LX  RL  4-F  3 R 4—  F 2R  4— F 1R4  + DAC40 
CCNT INUE 

SOM  S I = S1+S2+  S3  4 S4 
NCTE 

ACCELERATION  TERNS  HAVE  BEEN  ELININATEC 
FROM  R.H.S  OF  UO T , VDT f P C T , QD T ANC  ROT 
ECUATICNS.  ALSO  FRCN  AMPLIFIERS  AC66  AND 
A 106  DESCRIPTIONS. 

OCT  = VR  - WO  -GEE+SINTFE  -DACCC  MPH+O.O)  + DAC01 

* (02+R2)  + DAC26 

VC  T = WP  - UR  ♦GEE*CCSTFt*SINFFI  -CACG2  *(PW  + 0.0)  ... 

- DAC03  * 10R-0  .0 ) + CAC27 

*DT  = 00  - VP  ♦GEE*CGSTFE*COSFFI  4 DAC28  - 3UMSI/AN5 

OCT  = DACC9  * (VR-C.C-WQ-GEE*SINTHE)  + ( R 2-P2 ) *DAC 10  ... 

♦ (Q2  + R2 ) *CAC1  1 - (PC-0 .0  )*CACL3  + DAC3G  + ... 

CAC14  *{A*(Sl4-S2)  - B*(S3+S4))  - Q*DAC12 
RCT  = C AC  1 6 * { WP-0  . C-UR  +G E E*C 0 ST F E*S I NPH I ) + ... 

DAC17  * { PR  + O.C)  - C AC  15  *(GR-G.O)  + DAC31 


FSIDT  = (R*CCSPFI  4 C *S  IN  PH  I )/ CC ST F E 
PHIDT  = P + PSIDT*5INTHE 
THECT  = Q*COSP  F I - R*SINPFI 
I F ( IAXLE.NE.O)  GO  TO  7C0 

PCT  = DACCA  =MO.O  + OR-WP-GEE*CCSTFfc*S  INPHI  ) + ... 

DAC05  *(PC+0.0)  - CACC7  * (P2+R2)  +DAC29  + ... 

LAC  08  * ( TSF02MS2-S1)  + TSRG  2*  ( S4- S 3 ) ) -P*CAC06 
C EL  FDD  = OQ-VP+GEE«COSTFE«COSPFI-A*PR+(ZF  + DELF )*( P2  + U2) 
-VvCT+A*CDT4DACAl+(Sl  + S2)/ANUF  ... 

-(  AKT1  + AKT2)  /AMOF*  BETA*  (.  0C8«-.5*DT  IN/ BETA)  *DELFCT 
PH  I FDD  = -(CR  + FCT )*PHIF*(Q2-R2)*DAC42*TSF02*(S1-S2)/IF 
-(  ( ( AKT1  + AKT2)  *TFC23*tTF02>i4BETA*  (.00  8 + .5*DTIN/8ETA))/IF|*PHFC 
C ELROD  = UQ  -VP  4 G E E *C0  ST  hE  *C0  S P HI  + B*PR  + { Z ft  +DE  L R ) * ... 

(P2+Q2)  - WCT  -B*CQT  4 0AC43  + { S34-S4  )/ AMUR  ... 

( AKT3+AKT4) /AMUR*BETA*  ( . C C3+ . 5*0 T I N/ B ETA ) *DE LRDT 

FHIRDD  = -(OR  + PCT)  4 FFIR*(C2-R2)  4 CAC44  4-  TSRO  2*  ( S 3-S4  ) / IR  . . . 
-(  ( ( AKT34-AKT4  ) *TRC2*TR02*8ETA*  (.  0084- . 5*DT  IN/ BETA  ))/ I R ) *PF  I RD 

GO  TO  70C0 
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TOC 


ecc 


7000 


* 

* 


1 F { IAXLE.NE.l)  GO  TO  800 

PCT  = DACCA  *(0.'04UR-WP-GEE*CaSTHE*SINPHI  ) + ... 

DAC05  *(PC+0.0)  - CACC7  * (P2+R2)  +DAC29  4 ... 

CAC03  * (TF02* ( S2-S1)  + T S RO 2* ( S A- S 3)  ) -P*CAC06 
CELPDD  = UQ  - VP  4 GEE*CCSTPE*COSPH I -A*PR  - WDT  + A*QD  T 

DEL  1DD  = Dc  L PCD  + ( ZF  + CEL1  } * (P2  + C2J  - T F C2* ( P CT  4QR ) + CACA1  +... 

2 • *S 1 / AMU  F ... 

- I2.*AKTl/APUF ) * E E T A * < .008 ♦.5*CTIN/BfcTA)*DEL IDT 

CEL2DD  = DEL  PCD  + (ZF-*-DEL2)’MP2  + G2)  + TF  02*  ( PDT  + CR)  4 ... 

DACA2  + 2.*82/AMUF  ... 

- (2. *AK T2/AMUF ) *BE TA*  ( . 0 C 3 4 . 5* C T I N / BET A ) *DE L2 DT 

LELRDD  = UQ  -VP  + GE E *C0 STHE *C0 SPHI  + B*PR  4 { ZR4DE  L R ) * ... 

(P2+Q2)  - WDT  -B*0CT  4 DACA3  4 (S34SA)/AMUR 
{ AKT3  4AK TA ) /AM UR* BETA*  { .0C84. 5*DT I N/ BE TA > * DE LRDT 

PH  I ROD  = “(QR4PCT)  4 FPIRMG2-R2)  4 CACAA  4 TSRO  2* ( S3-SAJ/IR.  • • 

( ( ( AKT34AKTAJ*TRC2*TR02*BETA*  ( . 008  4 .5*DT  I N/  BET  A ) )/IR)*PHRD 

GC  TC  7000 
CCNTINLE 

PCT  = DACCA  * (0 .04UR-WP-GEE*CGSTHE*S INPHI ) 4 ... 

DAC05  *(PC4Q.O)  - CACC7  * (P2+R2)  40AC29  4 ... 

C AC 08  *(TFG2* ( S2-S1)  4 TRC2  *($A-S3)J  -P*DAC06 
CELPCD  = UQ  -VP  4 GEE*CCSTHE*COSPH I -A*PR  -WDT  4 A*QDT 
DEL1DD  = OELPCD  4 ( ZF4DEL1 ) * (P2  + C2)  - T FC2* ( PDT  4QR ) 4 CACA1  4... 

2 • *S  1/AMUF  ... 

- (2.*AKT1/APUF ) *BETA*  ( . 003  4 .5  *C  T I N/BET  A ) *DE  L 1 DT 

DEL2DD  = DELPDD  4 ( ZF+GEL2 )* (P24Q2)  4 TFC2* ( PDT4QR ) 4 ... 

CACA2  4 2.*S2/AMLF  ... 

- ( 2.*AKT2/AMUF ) *EETA*  ( .003 4 . 5 * CT I N / BET A } *DEL 2DT 

CELPDR  = UG-VP4GEE*CG3TPE*C0SPPI46*PR-WDT-3*QDT 

DEL3D0  = DELPDP4( ZP4DEL3)*(P24G2)-(PDT4QR)*TR024DAC43  ... 

4 2 . * $ 3/  A FUR 

(2  .*AKT3/AMUR) *BETA*  ( .008 4 . 5*CT I N/BE T A ) *DEL3D T 

DELADD  = 0ELPDR4 { ZR4DELA)* ( P24G2) 4 { FDT4QR) *TR02+DACAA  ... 

4 2 • * S A-/  AMUR 

( 2.*AKTA/AFUR ) *EET A*  (. 0084. 5*CTIN/3ETA)*DEL ACT 

CONT IN  LE 

R PS  1 CT  = -CMCN1F*RPS2L0  4 CAC32  - DAC22  *RPS1 

RPS2DT  = -OMCNiF*RPSlDC  4 DAC33  - CAC23  *RPS2 

RFS3CT  = -OMCN  1R*RPSADG  4 C A C 3 A - DAC20  *RPS3 

RPSADT  = -CMCN  1P*RFS3CC  4 CAC35  - CAC21  *RPSA 

680  IC  P CT  S 
FOGO^GC/  .8 
P005=UC/ 1200. 

P 0 2 0 = -A.*TFEC 
PC23  = P SI  C/A. 

PO  75=D  EL  2/  10. 

P086=U ELF/10. 

P101  = RPS  1/  100. 

P 1 10=R  FS3/ 100 • 
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* IDT  ANC  VDT  DECCUFLINo  FCTS 

F 11 1 = 0 .0 

FI  14=0  .0 

* 

* REAR  WHEELS  DIFFERENTIAL  DECOUPLING  POTS 

P05G=G  .0 

P 1 1 9 = 0 .0 

* HAND  SET  POTS 
g002=DEL2DT/10C. 

LQC4  = PF  IPC/10  . 

GCC7  = PPI ft/  1 . 
gC09=D  EL  1/  10. 

C012=KC/4. 

GO  14  = VC  / 1GCC. 

L017=PC/2. 

CG  L9  = wC/  100. 

Q022  = G EL  IDT/ IOC  . 

C024=DELFUT/10G. 

QG  2 7 =-1.5*PHlC 

IF  C I AXLE  .NE  .0  ) GO  TO  9GC 

P C 7 5 = PFI F/L  . 

QGG2  = PFIFD/1C. 

G009  = DFLF/10. 

QC  2 2 = DELFDT/  ICO. 

C-C  TO  9000 

90C  I F { IAXLE  .NE .2 ) GO  TO  9GGG 
F 0 96  = D EL  3/ 10  • 

C004  = CEL4DT/10C). 
gGO  7 = DEL4/10. 

CG2 4 = C 6L3CT/ 100 . 

SGCC  CONTINLE 

* 680  AMPS 

* IC  AMPS 
AGGG=gC/ .8 
AG05=UC/ 1200 . 

A0C7=PC/2. 

AG  1 C=  V C / 10CO. 

A012=RC/4. 

A015=wC/  100. 

A020=  4.  * THEC 
A C 2 5=  - i .5*  PHIC 
A027=PSIC/4. 

A G 4 0 = FhIR/1. 

AG9b  = -PH  IRD/10. 

A050=-CEL1CT/ 1G0 . 

AC55=D£L  L/  10. 

A07C=—  CEL2DT  / ICC. 

AU75=DEL2/10. 

A08G=-CELRDT/ ICC. 

AG85  = DELR/  10. 
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A1Q0=-RPSI/100. 

A105=-RPS2/10G. 

A110=~PPS3/100. 

A 115  = -RPS4/10G. 

A CO  i = (QC*SINPFI+RC*CGSPHI)/2. 

A0G2=-ID7/80Q. 

AOG4=  -CEL1/10  • 

A008=SINFHI*C0STHE 
AC09  = -(  (CEL 2- CEL  1 )/ 10  • ) 

A0il=-VDT/I500. 

A014=DEL2DT/10C. 

AQ16=-Sl/SCAL  E 

AO  17=  -( FHIR/1.-DELR/1G.) 

A018=VC*RO/40QC. 

A C l 9 = C.O 
A021=- S2/SCALE 
A022=RFS4D7/10000  . 

A023=VP/ 2000. 

AG24=-Fh  Ik/ l , 

A026=- S3/SCAIE 
A028=PHR*(Q2-R2) /A. 

A029  = (CEL2-DEL1  }*(RF/ (7F*7F)  )/10000. 

A030  = ( S1+S2) /SCALE*A/100.  - ( S3  + S4 ) /SCALE^B/100 • 
A031=-F2F2/  100CC. 

A032=-CEL2/10. 

A034  = Sl/SCALE 
A035=-WCT/20Q. 

A036=-F2R3/ 1GGCC. 

AG37  = S2/SCALE 
AC39=ZET  1CT/10C. 

A041  = { (S2-S1  )*TFC2  + { S 4- S 3 ) *7SR02) /(  1G0.*SCALE) 
A042=ZE72C7/L0G. 

A043=-lR/4800. 

AQ44=PFIRD/10  . 

A045=-F2R4/10000. 

A 046  = ( LQ-VP  + C-*CGS7HE*CGSPHI  ) /1QOO. 
A047=ZET4CT/100 . 

A049=Z  ET  2DT/10C • 

A05  1-=—  S4/SCAL  E 
AC52=-CELR/IO. 

A053  = -LU/960. 

A056  = RFS  1CT/10000  . 

A057=UCT/800. 

AG58  = (CELRMP2  + Q2)  ) / 4 C . 

AC59  = -VQ*RO/400G* 

A060=R  PS  2D T/10000 • 

A06 1 = - (SUMS I/AMS)/100C» 

A06  2=  SINPHI 
AQ63=-hC /SO  . 
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* A064  USE  AS  HG  AMP  IN  SINPHI  C KT 
A066  = ( IR-WP^G*CCSTHE*SINPHI  ) /1000. 
A067=CCSThE 

AG68=- ^P/2C0. 

A C6  9 = T FG2* ( P CT  + QR ) *BETA/ 1GCC • 

A 0 7 l = -(A*(Sl+S2  ) )/( 1U0.*SCALE) 
A072-CCSPHI 

* A074  USE  AS  HG  AMP  IN  COSPHI  CKT 
A076=RPS2DT/1QCC0. 

AO  77=  - S I NT H E 
AC78=—  CCSTHE*CCSPH I 
A081=—  PDT/12. 

AG82  = S4/SCALE 
A 0 8 3 = - ( GG*S I NPH I 1/0.8 
A 084=  S IN7HE 

A 0 86  = ( B* ( S3+S4)  ) /( 100.*SCALE  ) 

A 0 8 7 = HQ/80. 

A088=  - ( RQ*COSPPI  )/4  . 

* A G 8 9 USE  AS  HG  AMP  IN  CCSTHE  CKT 
A090=-F2F1/ 100CC. 

ACS  I = ( TSRC2* (S3-S4) )/ (100.*SCALE) 
A092  = wP/  1000. 

A093  = ( CO*COSPPI  ) /O .8 

A G 9 6 = -4  .*THED T*BE TA 
A C96=  -( FO*SINPFI  )/4. 

AlCi=-GD7/2. 

A 103=-PS  IDT/2. 

A 104  = S3/SCALE 
A 1 G6  = ( VR-fcQ-G*SINTHE)/LOOO. 

A 108  = ( PSIDT*SINTFE)/2. 

A 109=W  CT /200. 

Alii  = ( TFG2*(  S1-S2)  )/(  1G0.*SCALE) 

A 1 1 2=  - ( PR-QDT  ) /8  . 

A 1 13  = ( ( P 2 + 0 2 ) *D£L1)/4G. 

A 1 14  = - (A*(PR-QDT  )+WCT  )/2C0. 

A 1 1 6 = - P C T / 20 . 

* All  7 = 0 • G FCR  SCLID  REAR  AXLE 
A 1 1 7 = 0 .0 

A 1 1 8 = { (P2  + 02)*DEL2)/4C. 

A 1 1 9 = (E*(PR-GCT  )-WCT)/20C. 
CCOG=-CDT  /.8*8ETA 
CGQ5=-LDT/1200.*BETA 
C007=-PDT  *BETA/2. 

DO  L0=- VDT/1000.*BETA 
UG12=-PDT  *BET  A /4  • 

D C 1 5 = -HCT*BETA/100. 

CG20=  -4  THE  D 7*3  E 7A 
C02  5= 1 .5+PHIDT  *EET  A 
0027=  -PSIDT*BETA/4. 

0040= - PH  IRC*BETA/ 1 . 
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UC5C  = GEL  1DC/10U0. * EETA 
C055=-CEL1LT/1C»*BETA 
CG7G=CEL2DD/10C0. * E ET  A 
C075=-CEL2DT/1C.*BETA 
C080=CELRDC/10CG.*EETA 
CC85=-CELRCT/1C.*RETA 
C095  = P RIRDD/IO .*BE7A 
C100=RPS1D7/1000.*EETA 
C105=RPS2D7/LGCC.*EE7A 
Cl  10  = R PS 2D7/1GCC.*BETA 
D115=RPS4DT/10CG. *EETA 
SCALED  CAC'S 
C AGO  = -CAC 00/50. 

D AG  1 = CACG1/100. 

CA02  = -CAC02/50. 

CAQ3  = -CAC 03/625 • 

CAQ4  = CACG4/.G4 
CA05  = CAC05/  .4 
CA06  = -CAC06/2. 

C AG  7 = -CAC07/  1 . 
DAC8=DACC8*SCALE/  .8 
CAC9  = CAC09/.C02 

C A 1 0 = CAC10/  .25 
C A 1 1 = DACLI/.25 
C A 12  = -CAC12/1.25 
CAL3  = -CAC13/.1 
D A 14  = D AC  14* SC  ALE  / .2 
C A 1 5 = -CAC15/1.25 
CA 16  = -CAC16/.C1 
C A 1 7 = C AC  1 7/  1.25 
C A 2C  =-CAC20/iC00  . 

CA^l  = — D AC  2 1/  10CQ  . 

C A2 2 = -0AC22/ 1G00  . 

DA  2 3 =-DAC23/ 1CC0. 

DA26  = C AC26/4CC  . 

DA  2 7 = CAC27/1CG0. 

CA28  = DAC28/1CC0. 

CA29  = DAC29/28. 

CA8C  = DAC3G/1C. 

C A3  1 = CAC31/1C. 

C A 3 2 = -CAC32/2COOC. 
DA33  = — CAC33/200CC. 
CA34  = -CAC34/200GC. 
CA35  = -CAC35/2CGCC. 
CA37  = CAC37/1CC0C. 

CA38  = DAC38/iCOOG. 

DA39  = DAC39/1C00C. 

CA40  = CAC40/10000. 

DA41  = DAC41*BE7A  / 100GC 
CA42  = CAC42*BETA/ 1C0GC 


CA43  = CAC43*6ETA/ 10000  . 

DA44  = CAC44*BETA  /100.C 
I F ( IAXLE.NE.O)  GO  TO  910 
A004  = -CELF/1C. 

A009  = — (PHIF/1.  -CELF/1C.) 

A014  = PHIFD/10. 

A 029  = 0.0 
A032  = -FHIF/1. 

A 04  l = ( (S2-S1  )*TSF02+  ( S4-S3  )*TSR02  )/  ( 100  .*SCALE) 
AO  50  = -CELFDT/100. 

A055  = DELF/10  • 

A C 6 5 = 0.0 

A070  = -FHIFD/10. 

AC75  = PFIF/1. 

A 1 1 1 = < TSF02*( S1-S2) J / { 10  C . * SC  AL  E ) 

A 1 13  = ( (P2+Q2 ) *DELF )/4C . 

A 1 1 8 = ( (P2+Q2 ) *P  H I F ) /4 . 

C050  = C E L FOD / 10CC.*BETA 
D055  = -CELFOT /10.*3ETA 
C070  = PFIFDD/1G.*EETA 
C075  = -FHIFD*EETA 
CA4  2 = D AC  4 2* BETA/ 100. 

C-C  TO  10000 

5 1 C I F ( IAXLE.NE.2)  GOTC  10000 
AO  1 7 = -(DEL4-0EL3 )/ 10. 

A019  = ALXKL3/ 1000 . 

A024  = -CEL 4/ 1C. 

A028  ■=  CEL4*{P2+Q2)/4C. 

A 04C  = DEL4/10. 

A041  = ( (S2-S1  >*TFC2  + < S4-S3)*TR02  )/( i CO. * SCAL  t ) 
A044  = CEL4DT/100. 

A052  = -CEL  3/  1C. 

A058  = CEL3*( P2+Q2 )/40 . 

A060  = -CEL3DT/ 100 . 

A085  = DEL3/10. 

A091  = ( TRG2  *(S3-S4) )/ ( 100.*SCALE ) 

A055  = -CEL40T/10C. 

A 1 1 7 = ( PDT+QR  MTR02/1CCC. *6ETA 
C040  = -CEL4DT/ 10. *BETA 
C 0 8 0 = DEL3D0  / 1QQ0.*BETA 
C085  = -CEL3DT/10 .*BET A 
0095  = CEL4D0/  100G.*6ETA 
CA44  = DAC44*BETA/ 100CC . 

ICGOC  CCNTINLE 
* 680  TRUNKS 

T040=ZET IDT/100. 

T041=ZET2QT/10C. 

T042=  (G2-R2  > / 4 . 

TG43=ZET4DT/L0C. 

T053=ZET3CT/10C. 
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T05 4 = P/2 . 

T 055  = 0 / . 6 
Tu56  = R /4  • 

T057=- PD T/12. 

T058=-RD7/20. 

TC59=-GDT/2. 

T C 7 G = ( PR-GOT) /£. 

T07 1=  FR/8. 

7 07  2= ( R2-P2)/4. 

T073=( P2+R2)/4  . 

T074= ( F2+G2)/4. 

TO  75  = { C2  + R 2 ) / 4 . 

T 0 76=  FG/1C. 

TC77= ( FG-0.0  ) Z1G. 

TO 78=  -( GR  + PDT  ) /8  . 

TU79= ( CR-0 .0  ) / 8 . 

T080=- F3F1/100C. 

T082=-F3P3/100C. 

7G63=-F3R4/1Q0C. 

T088=-F3F2/1J0C. 

TERMINAL 

DGMMY=  CE  BUG ( 1.  ,0. ) 

ENC 

PARAM  I AXLE  = I 

PA  RAM  AKT1=1295.  » A K T 2=12F5. » A K T 3 = 1295. , AKT4=1295. 

PARAM  RF=151GQ0. ,RR=0.0 

PA RAM  TSF=G.C»TSR=43.»TF=61.5»Th=61. 

PARAM  PFC=3. ,PEC  = 2. 5 ,ZF= 9.35, ZR= 9. 3 3 
PARAM  CFP=36  . ,CRP=5Q . » A = 48. , 8=61 . 

PARAM  AMS=8.  13  ,AMUF=  .4  3 4 , AMOR  = .7 89 
PARAM  AKF=100.2» AKR 3 = 1 1 4 , , AKR 4= 1 14 . 

PARAM  IF=3.3»IR=6U0. »SCALE=20CG. 

PARAM  AIX  = 2940  ,t  AIY=  147CC., A I Z = 223CC  .tA I XZ=230. 

PARAM  F3F1=15.2,F3F2=22.5,F3R3=152.2 ,F3R4=48.6 
INCQN  5 F ZS=  -100. 

ENC 

PARAM  I AXLE  = 2 

PARAM  AKT 1 = 7 46  .» AKT 2= 74 1 . , AK T 2= 9 5 6 . , AK T4  = 9 5 6 . 

PARAM  HR  = 2 83  CO  . »TSR  = 5C.  ,TF  = 5? .8, TR  = 5 1.5 
PARAM  HFC=2 • 4 t PRC-3 • 4 »Z  F= 10 • 8 » ZR= 1 1 • 2 
PARAM  CFP=35 . , CRP=40 . , A = 55 .9 , £ = 39 .9 
PARAM  A M S = 6 . 5 , AMUF= 0 . 36  , AMLR = C . 5 7 
PARAM  AKF= 10 1 • 1 » AKR 3= 11 5 . , AKR 4= 1 15  . 

PARAM  IR=800.fRF  = 93  000»  ,SCALE  = 1000  . 

PARAM  AIX=2GE0.»AIY=9S27.»AIZ=9385. »AIXZ=C. 0 
PARAM:  F3R3=3G.  ,F3R4  = 42. 

I N C G N ANTI  1=384.6  , AN  712  = 384.  t »ANT  I 3=623. 7 , AN  T 14  = 623 . 7 ,S  F ZS=- 40G  . 
ENC 
S TCP 
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H-2 . IBM  360/91  Fortran  Digital  Program 

This  section  contains  the  computer  listing  of  the  IBM 
360/91  Fortran  digital  program. 

H-2.1  Subroutines 

H-2. 1.1  MAIN 


gram. 


Presented  here  is  the  Fortran  listing  for  the  MAIN  pro- 
Control  of  the  program  flow  is  performed  in  this  program. 


C VEHICLE  HANDLING  MODEL  C 

C MAIN  PROGRAM 

C*** *********************************** ********************** 

C THIS  PROGRAM  CONTROLS  THE  PROGRAM  FLOW 

C*** ******************************* ************************** 

LOGICAL  TRSL,L0GD0M 


MAIN  10 
MAIN  10 


*********** 

*********** 


8888 

CONTINUE 

MAIN 

30 

CALL  OSXNTL 

MAIN 

40 

CALL  USERIN 

MAIN 

50 

CALL  VHTPIC 

MAIN 

60 

CALL  NITIAL 

MAIN 

70 

CALL  SBPG2  2 

MAIN 

80 

CALL  NTIAL1 

MAIN 

90 

CALL  POTSET 

MAIN 

100 

999 

CONTIN  UE 

CALL  NTR ACT  {588  88,51000,62000,6  300  0) 

MAIN 

110 

1000 

CONTINUE 

MAIN 

120 

CALL  VHTPIC 

MAIN 

130 

CALL  NITIAL 

MAIN 

140 

CALL  SBPG22 

MAIN 

150 

CALL  NTIAL1 

MAIN 

160 

CALL  POTSET 

MAIN 

170 

CALL  N TR ATI  (688  88,5100  0,620  00,6  3000) 

MAIN 

180 

2000 

CONTINUE 

MAIN 

190 

LOGDDM=TRSL  (00) 
CALL  RTMON 

MAIN 

200 

IF  (TRSL  (00 ) ) GO  TO  999 
CALL  CMPVAR 

MAIN 

210 

CALL  NT  RAT  2 (688  88,61000,620  00,6  300  0) 

MAIN 

220 

3000 

r 

CONTINUE 

MAIN 

230 

C 

C 

THE  FOLLOWING  STATEMENTS  ARE  REQUIRED  FOR  OVERLAY 
CALL  RTMON T 

OVERL 

AY 

CALL  RACN(1  , IR  ACNE) 

OVERLAY 

CALL  CHKIO 

OVERLAY 

CALL  HR  TOFF 
CALL  RDOFF 
STOP 
END 


OVERLAY 
OVERLAY 
MAIN  240 
MAIN  250 
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non 


H-2.1.2 


OSXNTL 


Presented  here  is  the  Fortran  listing  for  the  OSXNTL  sub- 
program. The  following  is  performed  in  OSXNTL: 

1.  Initialization  of  the  OS  options  executive  which  in- 
cludes the  reading  of  data  cards  for  table  and  track 
variables,  analog-to-digital  and  digital-to-analog 
converter  (ADC  and  DAC)  assignments,  and  all  initial 
values  for  interactive  variables. 

2.  Communication  initialization  with  the  hybrid  opera- 
tor's station. 


C SUBROUTINE  OSXNTL  OSXN 

SUBBOUTINE  OSXNTL  OSXN 

C ********************************************************************** OSXN 
C OSXN 

C THIS  SUBBOUTINE  INITIALIZES  THE  OS  OPTIONS  EXECUTIVE  OSXN 

C INCLUDING  THE  READING  OF  DATA  CARDS  FOB  TABLE  AND  TBACK  VARIABLES  OSXN 

C /ADC  AND  DAC  ASSIGNMENTS,  AND  ALL  INITIAL  OSXN 

C VALUES  FOR  INTERACTIVE  VARIABLES.  IT  ALSO  ESTABLISHES 

C COMMUNICATION  INITIALIZATION  WITH  THE  HYBRID  OPERATOR'S  STATION 

C OSXN 

0 ******************************* ***************************************0SXN 
C OSXN 

0****************************  COMMON  AREAS  ********************** *******0SXN 
C OSXN 

COMMON/START/  ZDUMMY{4)  OSXN 

COMMON/VHTPNM/  T ABV AB , I NDVA P, HE DVNT  OSXN 

COMMON/OSTRAN/  ICT, IRT,MOPU,I BUNS, LRUNS ,REALT,ITRU NS  OSXN 

CO MM ON/ DAC A DC/  NAMD AC , N AM ADC, ID AC, I ADC, ADCNUM , DACN DM  OSXN 

COMMON/TABBS/  ITA BP , ITABI , I IN  AM  , TABNUK  OSXN 

COMMON/DEVICE/KEYBD,ITTY, ICDED, LPT  R , LPN  T OSXN 

COMMON/OSMON/  IREA LT  , NNNN  OSXN 

COM  MON/I 0/  D ACPLA, ADCP1A, SCALDC ,SCALAC  OSXN 

COMMON/TRACK/JIN, IK EEE, ATRACK, ISAM P,ONTIM ,OFFIIM , I TEA , OSXN 

1 ITRAA, ITRNA ,ITRIA  OSXN 

COMHON/UNRE  AD/N  AM  EA  , IWRDCT,  INUMCT,  LSI  AR  T,  IN Dr,XA  , OSXN 

1 FNUMA,LAST,ILOP  OSXN 

COMMON/FIND/ORNAME  (400)  ,NCOM,  BSVAL  (002)  , I ORDER  (400)  OSXN 

COMM  ON/ S P7BLK/N1  ,N2,IPOT  (120)  ,IPOTAD(120)  ,P  AR  AM  (40C)  OSXN 

COMMON/TIMBLK/J JTIME, TIME ,DT  OSXN 

OSXN 

******************************** ******************************«********OSXN 

OSXN 

REAL*8  LMNAME  OSXN 

REAL  *8  VEHICL  OSXN 

REAL*8  T ABV  AR  (9  ,7  ) OSXN 

REAL *8  NAMEA  (10)  OSXN 

REAL*8  CRN  AM  E OSXN 

REAL*8  ENDDAC, ENDADC  OSXN 

RE AL*4  ZDUMMY  OSXN 

REAL*4  FNUMA (10)  OSXN 

REAL*4  SCALAC  (48)  , SCALDC  (48)  OSXN 

REAL*4  IPOT, IPOTAD  OSXN 

IN TEGER *4  INDEXA(IO)  OSXN 


10 

20 

30 

40 

50 

60 

70 


90 

100 

110 

120 

130 

140 

150 

160 

170 

160 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

360 

390 

400 

410 

420 
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INTEGER*  4 ITABP  (9  ) , T ABNUM,  ITN  AH  (9) 

OSXN 

430 

IN  T EGER  * 4 ITABI  (9) 

OSXN 

440 

INTEGER*2  WRDVNT  (9) 

OSXN 

450 

IN  TEGER  * 2 INDVAR(9,7) 

OSXN 

460 

IN  T EGER  * 2 ITRAA  (50)  ,ITRNA  (50)  ,ITRIA(50) 

OSXN 

470 

INTEGER*  2 DACNU M , ADCNU  M , DAC  PL  A ( 48)  ,ADCPLA  (48) 

OSXN 

480 

IN  TEGER  *2  NAMDAC  (48)  , NAHADC  (4  8)  ,IDAC  (48)  , IADC  (48) 

OSXN 

490 

EQUIVALENCE  (BVALUE  (1)  , ZD  UM  NY  (1)) 

OSXN 

500 

EQUIVALENCE  (BVALUE  (1)  ,IVALUE  (1)) 

OSXN 

510 

DATA  EN  DDAC/'ENDNODAC '/,ENDADC/  *£N  DNOADC'  / 

OSXN 

520 

DIMENSION  ATRACK (2000) 

OSXN 

530 

DIMENSION  BVALUE  (2) 

OSXN 

540 

DIMENSION  I V ALU E ( 2) 

OSXN 

550 

c 

OSXN 

560 

c ************  ***************************************** *****************02^ 

570 

c 

OSXN 

580 

KEYBD=5 

OSXN 

590 

ITT  Y=6 

OSXN 

600 

ICDRD  = 1 

OSXN 

610 

LAST=7  2 

OSXN 

620 

LPTR  =2 

LPNT  = 3 

OSXN 

630 

CALL  TYPER2  ( KEYBD , I TT Y , LPNT) 

OSXN 

650 

CALL  SETUP  (ITTY  , ICDRD) 

OSXN 

660 

IRT  = 0 

OSXN 

670 

IKEEP=  0 

OSXN 

680 

JIN=0 

OSXN 

690 

TABN  UM  =9 

OSXN 

700 

MOPU=6 

OSXN 

710 

LRUN  S=0 

OSXN 

720 

IR  UN  S= 1 

OSXN 

730 

ICT=0 

OSXN 

740 

LSTART= 1 

OSXN 

750 

ADCNUM=48 

OSXN 

760 

DACN  UM  = 4 8 

OSXN 

770 

ITRU  NS  = 0 

OSXN 

780 

REAL  T= 1 . 

OSXN 

790 

ONTIM=1 000. 

OSXN 

800 

NNNN=0 

OSXN 

810 

c 

OSXN 

820 

c 

THIS  SECTION  WRITES  THE  PROBLEM  TITLE  AND  LOAD  MODULE  NAME 

OSXN 

830 

c 

OSXN 

840 

WRITE  (ITTY,  1 1) 

OSXN 

850 

11  FORMAT  (T10,  ' HYBRID  VEHICLE  HANDLING  PROGRAM') 

OSXN 

860 

READ (ICDRD  ,101)  NU M, LMNAME, V EHICL 

OSXN 

870 

101 

FORMAT  (13, A8  ,A8) 

OSXN 

880 

WRITE  (ITTY,  2 01)  N UM  , LM  NAME  , VE  HI  CL 

OSXN 

890 

WRITE  (LPTR,  201)  NU M , LM  N AM E,  VE  HICL 

OSXN 

900 

201 

FORMAT  (1H0,*  HYBRID  COMPUTER  PROB#  ',I3/A8,'  LOAD  MODULE'/ 

OSXN 

910 

1 A8,  • VEHICLE'//) 

OSXN 

920 

WRITE(ITTY,301) 

OSXN 

930 

301 

FO  RM  AT  ( 1 HO  , ' ENGAGE  PATCH  PANEL  FOR  TEST') 

OSXN 

940 

WRITE  (ITTY, 401) 

OSXN 

950 

401 

FO  RM  AT  ( 1 H ,'  TYPE  CR  WHEN  READY') 

OSXN 

960 

READ  (KEYBD,  1 51)  LL 

OSXN 

970 

1 51 

FORMAT  (11) 

OSXN 

980 

C 

OSXN 

990 

C ************  ****  ***************  **  *************************************OSXN1000 

c 

OSXN 1 010 
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C##### THIS  ROUTINE  SETS  UP  TRACK  NAME  ARRAY 

ITR A=0 

130  CALL  UN  FORM  (ICDRD, 1) 

IF  (IWRDCT.  EQ.O)  GO  TO  120 

DO  110  1=1,  IWRDCT 

CALL  FINDNM (K,J,I,&110) 

IF  (ITR  A . GE . 5 0)  WR ITE  (I  TTY,  4 01  C)  OR  NAME  { J) 

IF  (ITRA.  GE.50)  GO  TO  110 

4010  FORMAT  ( 1 H ERROR  TRACK  TABLE  EXCEEDED,  LAST  NAME  WAS',A6) 

ITR A=ITRA+1 

ITR  A A (ITRA)  =K 

ITRN  A (ITRA) = J 

ITRI A (ITRA) = INDEXA  (I) 

110  CONTINUE 
GO  TO  130 
120  CONTINUE 

C##### THIS  ROUTINE  SETS  UP  TABLE  NAME  ARRAY 

DO  10101  JJ=  1,7 
CALL  UNFORM (ICDRD, 1 ) 

TABN  UM  = IWRDCT 
DO  102  LL=1,TABN0M 
TABVAR  (LL,  JJ)  = NAMEA  (LL) 

INDVAR  (LL, JJ)  = INDEXA  (LL) 

102  CONTINUE 

WRDVNT(JJ)  = TABNUM 
10101  CONTINUE 

C##### THIS  ROUTINE  SETS  UP  DAC  NAMES  & SCALING 

N = 0 

105  CALL  UNFORM (ICDRD, 1) 

IF  (NAMEA  (1)  . EQ.  ENDDAC)  GO  TO  106 
IF  ( ILOP  . NE . LAST)  WRITE  (ITTY,4C0C) 

IF  (IWRDCT.  NE.  INUMCT)  WRITE  (ITTY,40  0 2) 

DO  9007  1=1, IWRDCT 
CALL  FINDNM (K,J, I, 6105) 

N = N ♦ 1 

IF  (N.GT.  DACNUM)  W RIT  E ( ITTY  , 40  05)  NAMEA(I) 

4005  FO  RM  AT  ( 1 HO , ' ERROR  *-DAC  ARRAY  > 48-*  LAST  VARIABLE  WAS  ' , A8) 
IF  (N.GT.  DACNUM)  GO  TO  105 
NAM  DAC  (N)  = J 
DA CP LA  (N ) = K 

SCALDC  (N)  = FNUMA  (I) 

IDAC  (N)  = INDEXA  (I) 

9007  CONTINUE 
GO  TO  105 

106  CONTINUE 
DACNUM  = N 

IF (DACNUM. GE. 48)  DACNUM=48 

C#*#*# THIS  ROUTINE  SETS  DP  ADC  NAMES  6 SCALING 

N = 0 

108  CALL  UNFORM  (ICDRD,  1) 

IF  (NAMEA  (1)  . EQ.  ENDAIC)  GO  TO  109 
IF  (ILOP.NE.LAST)  WRITE  (ITTY,4  00  0) 

IF  (IWRDCT. NE. INUMCT)  WRITE  (ITTY, 4002) 

DO  1269  1=1  , IWRDCT 
CALL  FINDNM  (K,J, I, &108) 

N = N*  1 

IF  (N  .GT.  ADCNUM)  WRI  TE  (ITTY  , 40  08)  NAMEA  (I) 

4008  FOR  MAT  ( 1 HO , ' ERROR  *-AEC  ARRAY  > 48-*  LAST  VARIABLE  WAS  ’,A8) 
IF  (N.GT.  ADCNUM)  GO  TO  108 


OSXN 1020 
OSXN1 030 
OSXN 1 040 
OSXN1 050 
OSXN 1 060 
OSXN1 070 
OSXN1 080 
OSXN 1 090 
OSXN 1 100 
OSXN1 110 
OSXN 1 120 
OSXN1 130 
OSXN1  140 
OSXN 1 150 
OSXN 1 160 
OSXN1 170 
OSXN 1 180 
OSXN 1 190 
OSXN1 200 
OSXN1 210 
OSXN1 220 
OSXN 1 230 
OSXN1 240 
OSXN 1 250 
OSXN1 260 
OSXN 1 270 
OSXN1 280 
OSXN1 290 
OSXN1 300 
OSXN1 310 
OSXN 1 320 
OSXN1 330 
OSXN 1 340 
OSXN 1 350 
OSXN 1 360 
OSXN1 370 
OSXN1 380 
OSXN1 390 
OSXN1 400 
OSXN1 410 
OSXN1 420 
OSXN 1 430 
OSXN1 440 
OSXN 1 450 
OSXN1 460 
OSXN 1 470 
OSXN 1 480 
OSXN1 490 
OSXN 1 500 
OSXN 1 510 
OSXN1 520 
OSXN 1 530 
OSXN 1 540 
OSXN 1 550 
OSXN 1 560 
OSXN1 570 
OSXN 1 580 
OSXN1 590 
OSXN1 600 
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NANADC(N)  = J 
ADCPLA(N)  = K 
IA DC  (N)  = INDEXA  (I) 

SC  A LAC  (N)  = FNUMA(I) 

1269  CONTINUE 
GO  TO  108 
109  CONTINUE 
ADCNUM  = N 

IF ( ADCN  UM.GE.48)  ADCNUH=48 

Cf#### THIS  ROUTINE  READS  IN  FLOATING  POINT  NAMES  AND  VALUES  - 

90  CALL  UNFORM (ICDRD, 1) 

IF  (IWRDCT.  EQ.O)  GO  TO  70 

IF  (ILOP  .NE.LAST)  WRITE  (ITTY,4000) 

IF (IWRDCT.NE.INUMCT)  WRITE  (ITTY,4002) 

DO  80  1=  1 , IHRDCT 
CALL  FINDNM (K,J,I,S90) 

BVALUE(K)  = FNUMA(I) 

80  CONTINUE 
GO  TO  90 
70  CONTINUE 

C##### THIS  ROUTINE  READS  IN  FIX  POINT  NAMES  AND  VALUES  ### 

91  CALL  UNFORM (ICDRD, 1) 

IF  ( I WR  DCT.  EQ.O)  GO  TO  71 
IF  (ILOP.  NE.LAST)  WRITE  (ITTY,4  00  0) 

IF(IWRDCT.NE.INUMCT)  WRITE  (ITTY,4002) 

DO  81  1=  1,1 W RDCT 
CALL  FINDNM  (K,J, I, S91) 

IVALUE(K)  = IFIX  (FNUMA  (I)  ) 


81 

71 

4000 

4002 

810 


CONTINUE 
GO  TO  91 
CONTINUE 
FORMAT  (1  HO  , 
FORMAT  (1  HO  , 
CONTINUE 


MAXIMUM  10  PAIRS  PER  DATA  CARD  ■ 
DATA  MUST  BE  ENTERED  IN  PAIRS  - 


COLUMNS  1 THR 
NAME  AND  VALUE 


* * 

* INITIALIZATION  PASS  * 

* * 

DO  1701  1=1,120 
IPOT  (I)  =100000. 
IPOTAD  (I)  = 100000. 


OSXN1610 
OSXN1 620 
OSXN1 630 
OSXN1 640 
OSXN1650 
OSXN1 660 
OSXN1670 
OSXN1 680 
OSXN1690 
--t#t##OSXNl 700 
OSXN1710 
OSXN1 720 
OSXN1 730 
OSXN1 740 
OSXN1 750 
OSXN1760 
OSXN1 770 
OSXN 1 780 
OSXN1790 
OSXN1 800 
##  OSXN 1810 

OSXN1 820 
OSXN 1830 
OSXN1 840 
OSXN 1850 
OSXN1 860 
OSXN 1 870 
OSXN1 880 
OSXN 1 890 
OSXN1 900 
OSXN 1 910 
U 72')  OSXN1920 
')  OSXN193G 

OSXN 1 940 
OSXN 1 950 
OSXN 1 9b0 
OSXN 1 970 
OSXN1 98C 
OSXN 1 990 
OSXN2  000 
OSXN  2 010 
OSXN2  020 
OSXN  2 030 
OSXN2040 


1701  CONTINUE 
C 

CALL  SACN ( 1 , ISACNE) 
CALL  S A MO  ( 1 , IS  AMOE) 
CALL  SLMO(3,ISLMOE) 
CALL  SLMO(1  , ISLMO E) 
C 

RETURN 

END 


OSXN  2 050 
OSXN2  060 
OSXN  2 070 
OSXN2  080 
OSXN2090 
OSXN2 100 
OSXN  2 1 1 0 
OSXN2 120 
OSXN2 130 
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H-2.1.3 


US ERIN 


Presented  here  is  the  Fortran  listing  for  the  USERIN  sub- 
program. The  following  is  performed:  Reading  of  data  cards  for 

vehicle  functions  and  parameters. 


SUBROUTINE 

SUBROUTINE 


USERIN 
USER  IN 


USER 

USER 


DELSF2  (10)  , 
FDLS R4  (1  0)  , 


***  * ******* ************************************************************ 

THIS  SUBPROGRAM  READS  DATA  CARDS  FOR  VEHICLE  FUNCTIONS 
AND  PARAMETERS 

*********************************************************************** 
COMMON/VHTPDT/  PARMNO, VHTPAR 
COM MON/D EVICE/KEYBD,ITTY, ICDRD, LPTR,LPNT 
COMMON/APL/  OPEN  ,RTSW  ,LDTSW  ,RBSW 

COMMON/SPRING/  DLS US  1 , DLSU S2 , DLSU S 3, DL SD S4 , DELSF 1 ( 1 0)  , 

1DELSR3  (10)  , DELSR4  (10)  , FDLSF  1 (10)  ,FDLSF2  (10)  ,FDLSR3  (10)  , 

1NDELF1  , NDELF2,NDELR3,  NEELR4 
COMMON/STRFUN/  NST, STRTM  (20)  , STEER (20) 

COMMON/AROTBS/  TA  U (4  0)  ,CX  (4  0)  ,CY(4  0)  ,CZ  (4  0)  ,CL(40)  , 

1CM  (40)  ,CN  (40)  , ALPHA  (40)  , DELCX  (40)  , NAERO,  NDCX, 

1 XWP  (20)  ,VYWTB  (20)  , NWP 

COM  MON/ NEWT  BS/TQBF  (20)  ,PBF(20)  , TQBR  (20)  ,PBR  (20)  , 

1 AFA  (20)  , GA  M F (2  0)  , NTF  , NTR, NF  A 
COMMON/S  P7  BLK/N  1 ,N2,IPOT  (12  0)  , I POT  AD  (12  0)  , PAR  AM  (40  0) 

COMMON/SOLDAX/  PH  IF  NT  (07)  , THE  FNI  (0  7)  , 

1 PSIFNT  (7)  , PHI RR  (7)  , TH  ER  R (7)  , PSIRR  (7  ) 

COMMON/ALPHA/ALPH (20) 

COMMON/SHOCKS/ZDBPRF  ( 1 0)  , ZD  BP  LF  ( 1 0)  ,ZDBPRR(10)  , ZDBPLR  (10)  , 

1 S A FRF  (10)  , SAF  LF  (10)  , SAFER  (10)  ,SAFLR  (10)  , 

2 NRF,NLF, NRR, NLR, 

3 Z ETDR  F , ZETD  LF ,Z  ETDRR , ZETDLR , 

4 AKSRF, AKSLF, A KS RR , AK SLR , F SA RF, FSALF , FSARR ,FSALR 


USER 

USER 

USER 


3333 


200 


210 


220 


10 

20 


30 

40 

50 


AERO 

120 

USER 

110 

USER 

120 

USER 

130 

USER 

140 

USER 

150 

USER 

160 

REAL *4  VHTPAR  (27,7) 

USER 

170 

INTEGER*4  PARMNO  (27 ) , NU MPRM/2 7/ 

USER 

180 

INTEGER  *2  OP  EN  , R TSW  , LDTSW  , RBS  W 

USER 

190 

RBSW  = 0 

USER 

200 

OPEN  = 0 

USER 

210 

RTSW=1 

USER 

220 

N 1 = 2 95 

USER 

230 

N2  = 1 19 

USER 

240 

FORMAT  (20A4) 

USER 

250 

READ  (ICDRD,  3 333)  (ALPH  (I)  , 1=1,  20) 

USER 

260 

READ  (ICDRD  , 900)  (PHIFNT(I)  ,1=1,7) 

USER 

270 

READ  (ICDRD,  900)  (THEFNT  (I)  , 1=  1, 7) 

USER 

280 

READ  (ICDRD,  900)  (PSIFNT  (I)  ,1=  1, 7) 

USER 

290 

READ  (ICDRD,  900)  (PHIRR  (I)  ,1  =1 , 7) 

USER 

300 

READ  (ICDRD, 900)  (THERR  (I)  , 1 = 1 , 7) 

USER 

310 

READ  (ICDRD,  900)  (PSIRR  (I)  ,1  = 1 , 7) 

USER 

320 

NTF=  1 

USER 

330 

READ(ICDRD,900)  PBF  (NIF)  ,TQBF  (NTF) 

USER 

340 

IF  (PBF  (NTF)  . GE.  99999.0)  GO  TO  210 

USER 

350 

NTF=NTF*1 

USER 

360 

GO  TO  200 

USER 

370 

NTF=NTF-  1 

USER 

380 

NTR=  1 

USER 

390 

READ  (ICDRD, 9 00)  PBR  (NTR ) ,TQBR  (NTR) 

USER 

400 

IF  (PBR  (NTR)  .GE.  99999. 0)GO  TO  230 

USER 

410 

NTR=  NTR*- 1 

USER 

420 
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GO  TO  220 

OSER 

430 

230 

NTR=  NTR - 1 

USER 

440 

N FA=  1 

USER 

450 

280 

READ  (ICDRD, 900)  GAME  (NFA)  ,AFA  (NFA) 

USER 

460 

IF  (GAMF  (NFA)  .GE. 99999. 0)GO  TO  290 

USER 

470 

NFA=  NFA* 1 

USER 

480 

GO  TO  280 

USER 

490 

29  0 

NFA=NFA- 1 

USER 

500 

NH  P=  1 

USER1 050 

340 

READ  (ICDRD,  900)  XWP(NHP)  , V YMTB  (NWP) 

USER1 060 

IF  (XWP  (NWP)  . GE.  99999.  ) GO  TO  350 

USER 1 070 

NWP=NWP ♦ 1 

USER  1 080 

GO  TO  340 

USER1 090 

350 

NWP=NWP-1 

USER1 100 

NAERO  = 1 

240 

READ  (ICDRD, 900)  TAD  (NAERO)  , CX  (NAERO)  ,CY  (NAERO) 

,CZ  (NAERO)  ,CL  (NAERO) 

1,  CM (NAERO) , CN (NAERO) 

IF  (TAU  (NAERO)  . GE.  99999.)  GO  TO  241 
NAERO  = NAERO  + 1 
GO  TO  24  0 

USER 

550 

241 

NAERO  = NAERO  - 1 
N DCX  = 1 

USER 

870 

252 

READ  (ICDRD, 900)  ALPHA  (NDCX)  ,DELCX(NDCX) 

USER 

880 

IF  (ALPHA  (NDCX)  .GE. 99999.)  GO  TO  253 

USER 

890 

NDCX=  NDCX  *■  1 

USER 

900 

GO  TO  252 

USER 

910 

253 

NDCX  =NDCX-1 

USER 

920 

C READ  IN  STEER  PROFILE  DATA 

NST  = 1 

360  READ  (ICDRD, 900)  STRTtl  (NST)  , STEER  (NST) 

IF(STRTfl  (NST)  .GE. 99999.)  GO  TO  370 
NST  = NST  ♦ 1 
GO  TO  360 
370  NST  = NST  - 1 
NDELF1  = 1 

300  READ  (ICDRD, 900)  DELS F 1 (NDEL FI ) , FDLSF 1 (N  DELF 1 ) 

IF  (DELSF1  (NDELF1)  .GE. 99999.  ) GO  TO  310 

NDELF1  = NDELF1  ♦ 1 
GO  TO  300 

310  NDELF1  = NDELF1  - 1 
NDELF2  = 1 

301  READ  (ICDRD, 900)  DELSF2  (NDELF2)  , FDLSF2  (N  DELF2) 
IF(DELSF2(NDELF2)  .GE. 99999.)  GO  TO  311 

NDELF2  = NDELF2  + 1 
GO  TO  301 

311  NDELF2  = NDELF2  - 1 
NDELR3  = 1 

302  READ  (ICDRD, 900)  DELSR 3 (NDELR3 ) , FDLSR3  (N  DELR3) 
IF(DELSR3(NDELR3)  .GE. 99999.)  GO  TO  312 

NDELR3  = NDELR3  + 1 
GO  TO  302 

312  NDELR3  = NDELR3  - 1 
NDELR4  = 1 

303  READ  (ICDRD, 900)  DELSR4  (NDELR4)  , FDLSR4  (NDELR4) 
IF  (DELSR4  (NDELR4)  .GE.  99999.  ) GOTO  313 

NDELR4  = NDELR4  + 1 
GO  TO  303 

313  NDELR4  = NDELR4  - 1 
NRF=  1 

600  READ  (ICDRD, 900)  ZDBPRF  (NRF)  ,SAFRF  (NRF) 
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IF  (ZDBPBF  (NRF)  . GE.  99999.)  GO  TO  601 

NRF=NRF*1 

GO  TO  600 

601  NRF=NR  F- 1 
NLF=  1 

602  READ  (ICDRD, 900)  ZDBPLF  (NLF)  ,SAFLF  (NLF) 

IF(ZDBPLF(NLF)  .GE. 99999.)  GO  TO  603 

NL  F=  NLF  ♦ 1 
GO  TO  602 

603  NLF=NLF-1 
NRR=  1 

604  READ  (ICDRD#900)  ZDBPRB  (NRR)  ,SAFFR(NRR) 

IF  (ZDBPRR  (NRR)  .GE.  99999.)  GO  TO  605 
NRR=NRR+ 1 

GO  TO  604 

605  NRR=  NRR- 1 
NLR=1 

606  READ  (ICDRD, 900)  ZDBPLB  (NLR)  ,S  AFLR  (NLR) 

IF  (ZDBPLR(NLR)  .GE. 99999.)  GO  TO  607 
BLR=NLR-H 

GO  TO  606 

607  NLR=NLB-1 

900  FO  RM  AT  (7  El  0 . 0) 

READ  (ICDRD,  100)  (PARMNO(J),  (VHTPAE(J,I)  ,1=1,7)  # J=  1 , NUHPRM) 
100  FORMAT  (I3,1X,7F10.3) 

ENTRY  OSERN2 
DO  1028  1=1,500 

READ (ICDRD, 50,END=3 2)  NOPARH, PARVAL 
50  FORMAT  (13 , 1 X, G 20 . 6 ) 

IF  (NOP  ARM.  EQ.  304)  GO  TO  2222 
1100  PARAM (NOPARM)=PARVAI 
1028  CONTINUE 
32  WRITE  (ITTY, 33) 

33  FORM  AT  ( ' END  OF  CARDS*) 

2222  CONTINUE 
RETURN 
END 


USER  1 110 
USER1 120 
USER1 130 
USER  1 140 
USER1 150 
USER1  160 
USEfil 170 
USER  1 180 
USER  1 190 
USER  1200 
USER1 210 
USER1 220 
USER1 230 
USERI 240 
USER  1250 
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H-2.1.4  VHTPIC 


Presented  here  is  the  Fortran  Listing  for  the  VHTP  ini- 
tialization subprogram.  The  appropriate  elements  of  the  PARAM 
array  are  initialized  in  VHTPIC  for  performance  of  the  selected  VHTP, 


C SUBROUTINE  VHTPIC 

SUBROUTINE  VHTPIC 

***  ******** *********************************** 

THE  APPROPRIATE  ELEMENTS  OF  THE  PARAM  ARR 
VHTPIC  FOR  PERFORMANCE  OF  THE  SELECTED  VH 

********************************************** 


VHTP 

VHTP 


**************  *********** 

AY  ARE  INITIALIZED  IN 
TP  MANEUVER 

************************* 


20 

10 


30 


STRRAT  IS  THE  OVERALL  STEERING  RATIO 
STRRAT  = PARAM  (42)*  (PARAM  (134)/PARAH  (138)  ) 


40 


IF  (PARAM  (129)  .EQ.  4) 

IF  (PARAM  (129)  . EQ.5) 

1 / (PARAM (66) *88. ) 

IF  (P  AR  AM  (129)  .EQ.6) 

1 / 7.5 

SELECTS  VARIABLES  FOR  TABLE  OUTPUT 
1=1  FIX  (PARAM  (129)  ) 

IF(I.EQ.O)  1=7 
TABNUM  = WRDVNT  (I) 

DO  40  J=1 , TABNUM 

NAMEA(J)  = TABV  AR  (J  ,1) 

INDEXA(J)  = INDVAR  (J,I) 

CONTINUE 

DO  100  1 = 1, TABNUM 
CALL  FINDNM (K,J, 1,6100) 


PARAM  (1  14)=  STRRAT  * ( (PARAM  (6)  +PAR AM (7) ) ) /60. 

(6)  + PARAM  (7)  ) *STRR  AT 


PARAM  (123)  =66.*  (PARAM 
PARAM  (123)=  STRRAT  * (PARAM  (6)  +PARAM  (7)  ) 


10 

20 


COMMON/VHTPDT/  P ARM  NO , V HTP A R 

VHTP 

40 

COMMON/TAB BS/  IT ABP ,ITABI, ITNAM, TABNUM 

VHTP 

50 

COMMON/ V HTP NM/  TABVAR, INDVAR, WRDVNT 

VHTP 

60 

COMMON/SP7BLK/N1  ,N2,IPOT  (12  0)  ,IPOTAD(120)  ,P  AR  AM  (40  0) 

VHTP 

70 

COMMON/UNREAD/NAMEA , I V RDCT , I N UMCT, LSTART, INDEX A , 

VHTP 

80 

1 FNUMA,LAST  , ILOP 

VHTP 

90 

REA  L*8  NAMEA(IO) 

VHTP 

100 

REAL *8  TABVAR  (9,7) 

VHTP 

110 

REAL*4  VHTP  AR  (27,7) 

VHTP 

120 

IN TEGER  * 4 INDEXA  (10) 

VHTP 

130 

INTEGE R*4  PARMNO  (27)  , NUMPRM/2 7/ 
IN T EGER *4  ITABI  (9) 

VHTP 

150 

INTEGER  *4  ITABP  (9)  , TA B NUM  ,1  TN  AM  (9) 

VHTP 

160 

INTEGER* 2 INDVAR  (9,7) 

VHTP 

170 

IN  TEGER  * 2 WRDVNT(9) 

VHTP 

180 

EQUIVALENCE  (S  AVE,PAR  AM  (400) ) 

IF  (SAVE.  EQ.  PARAM  (129)  ) GO  TO  500 

VHTP 

190 

I = IFIX  (PARAM  (129)  ) ♦ 1 

VHTP 

200 

IF  (I.EQ.  1)  GO  TO  10 

VHTP 

210 

IF  ((I.GE.2)  .AND.  (SAVE.NE.1)  ) GOTO  10 

VHTP 

220 

IF  I = 1 ORIGINAL  DATA  MUST  BE  RESTORED 

VHTP 

230 

IF  IIS  NOT  = 1 MUST  DECIDE  TO  STORE  DATA 

VHTP 

240 

IF  I NE  1 AND  OLD  I NE  1 DO  NOT  STORE 

VHTP 

250 

DO  20  J= 1 , NUMPRM 

VHTP 

260 

VHTP  AR  ( J , 1 ) = PARAM  (PARMNO  (J)  ) 

VHTP 

270 

CONTINUE 

VHTP 

280 

CONTINUE 

VHTP 

290 

DO  30  J=1, NUMPRM 

VHTP 

300 

PARAM  (PARMNO  (J)  ) = VHTPAR(J,I) 

VHTP 

310 

CONTINUE 

VHTP 

320 

VHTP 

350 

VHTP 

370 

VHTP 

380 

VHTP 

390 

VHTP 

400 

VHTP 

410 

VHTP 

420 

VHTP 

430 

VHTP 

440 

VHTP 

450 

VHTP 

460 

VHTP 

470 
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ITABI (I) =INDEXA  (I) 

V HTP 

480 

ITNAM  (I)  =J 

VHTP 

490 

IT  A BP  { I)  =K 

VHTP 

500 

CONTINUE 

VHTP 

510 

CONTINUE 

VHTP 

520 

SAVE  = PAR  AH  (129) 

VHTP 

530 

RETURN 

VHTP 

540 

END 

VHTP 

550 

H-29 


H-2.1.5 


NITIAL 


Presented  here  is  the  Fortran  listing  for  the  initial- 
ization subprogram.  The  following  is  performed  in  NITIAL: 

1.  Calculation  of  initial  conditions  using  input  data. 

2.  Initialization  of  DAC  to  their  time  = 0 values. 

C SUBBOUTINE  NITIAL  NITI 

SUBROUTINE  NITIAL  NITI 

C *** **************  ****************************************************** 

C THIS  SUBPROGRAM  CALCULATES  INITIAL  CONDITIONS  USING  INPUT  DATA 

C AND  INITIALIZES  DIGIT AL-TO- AN ALCG  CONVERTERS  TO  THEIR 

C TIM  E=0  VALUES 

C* *******************************************  *************************** 


DIMENSION  NAME*  (124)  , NAME  (289)  NITI 

COMMON/CFRC/  SL  (4)  ,SEP(4)  ,CFC0EF(4)  ,ARPS(4) 

COMMON/IAN  DG/  A IXP,  A IXZP,  G A Ml  , G AM  2 , G AM  3 ,G  AM  4 , GAM  5,  GAM6  , 

1 GAM  7,GAM8,GAH9,AIYP,AIZP 

COHMON/DOALS/IDULTR, N WHEEL, TI R0  2,  T0R0  2,  TIRTOR  , VBR  ZRP  , NITI 

1 FXU5, FXU6,FYU5,FYU6,ALTQ5, ALTQ6 ,F SI3 ,F SI  4 , FSI5 , FS 16 , PPHI R NITI 

COMMON/A ERO/SFXS  ,SFYS ,SFZS, SNTHES, SNPHIS, SN PSI S , APLUSB , IA ERO  NITI 

COMMON/ APL/  OPEN  , RTSW  , LDT  SH  , R BSW  NITI 

COMHON/D EV ICE/KEY  BD ,ITTY , ICDR  D, LPTR , LPN  T NITI 

COMMON/SPLTA  X/  SP SR  3 , SPSR4 ,IA X NITI 

CONMON/HHHH/H1, H2,H3, H4  NITI 

COMNON/ZILCH/TQMAXF,TQHAXR, AKTQF, AKTQR, TQDRF,TQDRR , IDRSW  NITI 

COMMON/CACA  TO/E  P S K 1 ,EPSK2 f FEE  1 , FEE2 ,THE1 , THE2  NITI 

COMMON/THI NGS/TM  A XI ,TM AX2, T MAX  3 , TQRM AX , TQ FMAX , PSIM AX , ONER  NITI 

COMMON/EES/O 1 , 0 2 , 03 , E 4 ,E5 , E 6 NITI 

COMHON/ALPHA/ALPH  (20)  NITI 

COMMON/COMBLK/  SM ,C IP, Cl VP , RZF , RZR, A2T, CA 20 , CA23, TSF02 , 

1 TR0  2,TF02,TS02,G,THRD, IH N7  ,R2 T ,RA2 0, RA23 

COMMON/TIMBLK/JJTIME,TIME, DT  NITI 

COMHON/EFFS/ANUM, ADEN,ANUMDT, AD END T , ANU MO , ADENO , A NUMDO , ADEN  DO,  NITI 

1 A NOUT , ADOUT  NITI 

COM  MON/ 1 NO  UT/  IN  (48)  ,CACO(48)  , I SW  1 , ISW7  , IPRT 

COMMON/UVH/VC, UIN  NITI 

COMMON/XYZ/  NUMBR  NITI 

COMMON/OPSW/IHSH  NITI 

COMMON/ V ARS/P, Q, R,U ,V, H,X, Y,Z , THE, PHI, PSI 

C0MM0N/SP7BLK/N  1,N2,IP0T  (120)  ,IPOTAD(120)  ,PARAM(400)  NITI 

COMMON/X BS/X B (30)  ,NS  (4,30)  , DE LX  (4)  , XI  (4)  , NNN  NITI 

CO  MMON/NONA M E/XEND , 0 , EXIT 2 NITI 

COMMON/N  EH  ER /TIME  25  , TIME  1 0,  PS  I 5,  PHI  MAX,  DSHMAX  NITI 

CO MM ON/C CM V AR/  AXAV  E , CUVR AT , B ET DMX , CURT  BP , TIM  DEC, JUMP, DELSTR, DEL,  NITI 
1 AXI,CURVAV,ABBTV,AYMAX,RMAX,DELBET,DELPSI,BETAMX,  NITI 

1 TIMBMP, GETDL,TIMIN5,  TSTEP  , IVHTP  NITI 

COMMON/PAUL/  Dl,D2,D3,D4,SFYU  ,TMP, SNPHIU, SNTHEU ,SNPSIU , 

1 QDT, PDT,  R DT  ,U DT ,V DT , W ET, P HI CT , TH EDT , P SI DT, XDT , YDT, ZD T , 

1 AK  K 1 , A K K2 , THS1,THS2, 

1AMT1 ,AMT2,SN,SFXU,BTVD1,ETAX, ETAL, 

1 ZIP  (4)  , PHII  (4)  , 

1 U1I  (4)  ,3 AMI  (4)  ,MUP  (4)  , SAMI  (4)  ,FI  (4)  ,FXUI  (4)  ,FYUI  (4)  , GI  (4)  , 


1 ALFI  (4)  ,BETIP  (4)  ,BETIBR  (4)  , SLIPI  (4)  , AM  1 1 (4)  , AM2I  (4)  , UOI  (4)  , 

1 FCI  (4)  ,FCIMA  X (4)  ,FSI  (4)  , 

1 ABI  (4)  , BET AI  { 4)  , AMU  I (4  ) , SNI  (4)  , R MI  (4)  ,GBI  (4)  ,FRIBR  (4)  , 


10 

20 


40 


50 

60 

70 

80 

90 

100 

110 

120 

140 

150 

160 

170 


230 

240 

250 

270 

280 

290 

320 

330 

340 

350 

360 

370 

380 

340 

350 

360 

370 

380 

390 

400 

410 

420 
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1 RWZI  (4)  ,ZI  (4)  ,FRI  (4)  , 01  (4)  ,VI  (4)  ,SI  (4)  , UGI  (4)  » 430 

1 VGI  (4)  , SIN  PSI  (4)  , PSI  1(4)  ,C0SPSI  (4)  ,UGIP(4)  ,PHICGI(4)  ,CVI(4)  440 

1 ,ALTQ  (4 ) ,OTH  (4)  ,S  ALTQ,  FCTM,  BOTH  450 

1,AP1 ,AP2,AP3,AP4,AR1,AR2,AR3f AR4»ANTI1 , ANTI2,ANTI3, ANT  1 4 

1 ,DLIS  (4)  ,ZIH  X (4)  ,FBS1,FBS2,  FBS3,FBS4  470 

1 ,P  HIDH  X 480 


COHHON/ADCOUT/  DEL  1 DT , EEL2 DT, BEL3DT , DEL  1 , DEL2 , DEL3 , PHIE D, PH IE, 
2 DELPHI  ,DELFW2,S1P,S2P,S3P,S4F 
COHHON/CNTROL/  EPSDSH ,EPSTQR ,EPDSWI , EPTQRI , ALAHDA 
COHHON/SHOCKS/ZDBPRF  (10)  ,ZDBPLF  (10)  ,ZDBPRR(10)  ,ZDBPLR(10)  , 

1 SAFRF  (10)  , SAFLF  (10)  , SAFRR  (10)  ,SAFLR(10)  , 

2 NRF,NLF,NRR,NLR, 

3 Z ET  DR  F , Z ETDL  F„Z  ETDRfi , ZETDLR , 

4 AKSRF,AKSLF, AKSRR  ,AKSLR, FSARF, FSALF, PS  ARR , FS  ALR 
EQUIVALENCE  (ARPS  (1)  ,ARPS1)  , ( ARPS  ( 2)  , AR  PS  2)  , (ARPS{3)  ,ARPS3)  , 


1 

(ARPS (4) , ARPS4) 

EQUIVALENCE 

NITI 

390 

1 

(PARAH  ( 1)  , A H S) 

# 

(PARAH  ( 2)  , AHUF) 

9 

(PARAH  ( 3) 

,AHUR)  , 

NITI 

400 

1 

(PARAH  ( 4)  ,ZF) 

9 

(PARAH  ( 5)  , ZR ) 

9 

(PARAH  ( 6) 

,A) 

NITI 

410 

1 

(PARAH ( 7)  ,B) 

9 

(PARAH  ( 8)  g TF) 

9 

(PARAH  ( 9) 

,TR) 

NITI 

420 

1 

(PAR  AH  ( 1 0)  ,TS) 

9 

(PARAH  (11)  g AIX) 

9 

(PARAH  (12) 

,AIY) 

NITI 

430 

1 

(PARAH(13) ,AIZ) 

9 

(PARAH  (14)  , AIXZ) 

9 

(PARAH  (15) 

,AIR) 

NITI 

440 

1 

(PAR  AH  (16)  , ROO  VE  R) 

9 

(PARAH  ( 17)  , RF) 

9 

1 

(PARAH(19)  , AKF1) 

9 

(PARAH  (20)  ,AKF2) 

9 

(PARAH  (21) 

, AKR3 ) , 

HODE 

890 

1 

(PARAH (22) , AKR4) 

9 

(PARAH  (23)  ,CR) 

9 

(PARAH  (24) 

,RR) 

HODE 

910 

1 

(PAR  AH (2  5)  ,C  F 1 P) 

9 

(PARAH  (26)  , CF2  P) 

9 

(PARAH  (27) 

,CR3P) 

HODE 

900 

1 

( PARAH(28)  , CR4  P) 

9 

(PARAH  (30) 

, AKRS ) , 

HODE 

920 

1 

(PARA H (3 1 ) rRW) 

9 

(PARAH  (33) 

,OT) 

NITI 

500 

1 

(PARAH  (34)  ,CA  0) 

9 

(PARAH  (35)  ,CA1 ) 

9 

(PARAH  (36) 

e CA2) 

NITI 

510 

1 

(PARAH  (37 ) ,CA3) 

9 

(PARAH  (38)  ,CA4) 

9 

(PARAH  (39) 

*TIH  ) 

NITI 

520 

1 

(PAR  AH  (44)  ,A  KDL) 

9 

(PA  RA  H ( 41)  , AKSC) 

9 

(PARAH  (42) 

, ANG) 

NITI 

530 

1 

(PARAH  (43)  , W G) 

9 

(PARAH  (40)  , TOR  ) 

9 

(PARAH  (45) 

» AKSL) 

NITI 

540 

EQUIVALENCE 

NITI 

550 

1 

(PAR  AH  (46)  , A NL  1) 

9 

(PARAH  (47)  , AIFH) 

9 

(PARAH  (48) 

rAIF) 

NITI 

560 

1 

(PARAH  (49  ) , A IWF) 

9 

(PARAH  (50)  , AIBR) 

9 

(PARAH  (51) 

• AID) 

NITI 

570 

1 

(PAR  AH  (52)  ,ARBR) 

9 

(PARAH  (53)  »TSF  ) 

9 

(PARAH  (54) 

, AKFS)  , 

NITI 

580 

1 

(PARAH(55)  , PTBR) 

9 

(PARAH  (56)  , YSA1  ) 

9 

(PARAH  (57) 

, YS  A 2 ) 

NITI 

590 

1 

(PARAH  (58 ) ,YHS  1) 

9 

(PARAH  (59)  , YHS2) 

9 

(PARAH  (60) 

,AKD) 

NITI 

600 

1 

(PARAH (61)  , A IDF ) 

9 

(PARAH  (62)  f ARFBR) 

9 

(PARAH  (63) 

• PIH) 

NITI 

610 

1 

(PAR  A H (6 4 ) ,QIN) 

9 

(PARAH  (65)  , RIN) 

9 

(PARAH  (66) 

• DIZ) 

NITI 

620 

1 

(PARAH  (67)  ,VIN) 

9 

(PARAH  (68)  , WIN) 

9 

(PARAH  (69) 

t XI N) 

NITI 

630 

1 

(PARAH (70) , YIN) 

9 

(PARAH  (71)  ,ZIN) 

9 

(PARAH  (72) 

,THEIN) 

NITI 

640 

1 

(PARAH  (7  3)  ,PHIIN) 

9 

(PARAH  (74)  , PSII N) 

9 

(PARAH  (75) 

g DTIN) 

NITI 

650 

1 

(PAR  AH (76)  , TEND) 

9 

(PARAH  (77)  ,AKT1  ) 

9 

(PARAH  (78) 

, AKT 2 ) , 

NITI 

660 

1 

(PARA  M (79  ) , ART  3) 

9 

(PARAH  (80)  , AKT4) 

9 

(PARAH  (81) 

, RPS1 ) , 

NITI 

670 

1 

(PARAH  (82)  , R PS2) 

9 

(PARAH  (83)  ,R PS3) 

9 

(PARAH  (84) 

, RP S 4 ) 

NITI 

680 

1 

(PARAH  (85)  ,B  1) 

9 

(PARAH  (86)  ,B2) 

9 

(PARAM  (87) 

r B3) 

NITI 

690 

EQUIVALENCE 

NITI 

700 

1 

(PARAH  (88)  ,B4)  , 

(PARAH  ( 89)  , DELI DN) 

» (PARAH  ( 90)  ,DEL2DN) , 

NITI 

710 

1 

(PARAH  ( 91)  , DEL3DN)  r 

(PARAH  ( 92)  , DELFIN)  , 

(PARAH  ( 93) 

, DELRIN)  # 

NITI 

720 

1 

(PARAH  ( 94)  , DEL3  IN ) 

9 

(PARAH  ( 95)  , PHI  DN  ) 

9 

(PARAH  (96) 

, PHIRN)  , 

NITI 

730 

1 

(PARAH  ( 97)  ,DFHlIN) 

9 

(PARAH  ( 98)  , DFW2I  N) 

, (PARAH  ( 99)  , U 1 PIN ) , 

NITI 

740 

1 

( PAR  A H ( 1 0 0)  , U2PIN)  , 

(PARAH  (101)  , U3P  IN  ) 

9 

(PARAH  (102)  , U4PIN)  , 

NITI 

750 

1 

(PAR  AH  ( 1 03)  , S 1 PIN ) , 

(PARAH  (104)  #S2 PIN) 

9 

(PARAH  (105)  rS 3PIN)  , 

NITI 

760 

1 

(PARAH  (106)  #S4PIN)  , 

(PARAH  (1  07)  , PPRT)  , 

PARAH  (109)  , R W SF) 

NITI 

770 

1 

, (PARAH  (110)  rTQHAX)  , (PARAH  (11  1)  # AKTQ)  , (PARAH  (1  12)  , VCIN) 

NITI 

780 

1 

, (PARAH  (113)  ,SWHT),  (PARAH(114)  ,DSWCH)  , (PARAH(115)  ,TST) 

9 

NITI 

790 

1 (PARAH  (116)  , DSLP)  , (PARAH(117)  , CGAH ) , (PARAH(118)  ,CS) 

NITI 

800 

1 

» (PARAH  (119)  , TQRB  R)  , 

(PARAH  (120)  , TQFBR) 

NITI 

810 

1 

, (PARAH  (121)  ,PFL)  , (PARAH  (12  2)  ,ITD)  , (PARAH  (123)  ,DStt) 

NITI 

820 

1 

, (PARAH  (124)  ,TSW) 

NITI 

830 
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EQUIVALENCE 

1 (PARAM  (130)  , ANCB)  , (PARAM  ( 1 3 1)  , ES  P)  , (P  AR  AH  ( 1 32)  ,AKSL1)  , 
1 (PABAM  (133)  , A KSL2)  , (PABAM  (134)  ,AA1)  r (PABAM(135)  ,AA2)  , 

1 (PABAM  (136)  ,CCR)  , (PABAM  (1  37)  ,CFCR)  , (PABAM  (138 ) , AP)  , 

1 (PABAM  (139)  ,EP1)  , (PABAM  (140)  , EP2)  , (PABAM  (141)  , ERR  1)  , 

1 (PABAM  (142)  ,ERR2)  , 

1 (PAR AM  (14  3)  ,AHL1)  , (FARAM  (144)  ,AML2)  , (PARAM(145)  , RRIH)  , 

- 1 (PARAM  (146)  , RWR) 

EQUIVALENCE 

1 (PARAM  (284)  ,HFC)  , (PARAM  (285)  ,HRC) 

EQUIVALENCE 

1 (PAR  AM  (29  0)  , ROT)  , (PARAM  (291)  ,RA0)  , (PAR  AM  (292)  , RA1)  , 

1 (PAR  AM  (29  3)  ,RA2)  , (PARAM  (294)  ,RA3)  , (PARAM  (295)  ,RA4) 
EQUIVALENCE  (NA  ME  (1  72)  , NAME  X ( 1 ) ) 

EQUIVALENCE  (PAR AM  (35  1 ) , IOUT  ( 1)  ) 

EQUIVALENCE  (PHIFD  , DEL2DT)  , ( P HI  F , D E L2 ) 

EQUIVALENCE  (PHIRD,  DEL4DT)  , (P  HIR,  D EL4) 


DATA  NAME/ 

• MS 

r 

• MUF 

*,'  MUR 

9 

• ZF 

, ' ZR 

',•  A* 

9 

' B' 

9 

• TF 

1 

• TR  •, 

• TSR 

9 

* IX 

IY 

9 

• IZ 

, • IXZ 

','  IB* 

9 

• ROOR' 

9 

• RF 

1 

• STOP*, 

• A KF 1 

9 

• AKF2 

• , ' AKR3 

9 

• AKR4 

, • ALS 

• , • RR  • 

9 

' C F IP ' 

9 

•CF2P 

1 

• CR3P  * , 

•CR4P 

9 

' ZB  A S 

KBS 

9 

• RH 

, • SCAL 

• , • FOT  • 

9 

• AO' 

9 

• A 1 

1 

* A2  ' , 

• A3 

9 

* A 4 

' , ' TI H 

9 

'TOR 

,'  K SC 

' , ' NG' 

9 

• TSD  • 

9 

• DSLM 

1 

, TpT » 

• DSH2 

9 

* IFH 

•,•  IF 

9 

• IHF 

, • I HR 

','  IDR* 

9 

• ARB* 

9 

•TSF 

1 

' KFS  *, 

. pT 

9 

* YSA  1 

• , • YSA2 

9 

•PH  SI 

, ' PHS2 

• , 'CTSH • 

9 

• IDF' 

9 

• ARF 

1 

• P- 1 N ' , 

* Q-IN 

9 

• B-IN 

’ , • U ~ I N 

9 

• V-IN 

, ' H-  IN 

• , 'X-IN* 

9 

• Y-IN* 

9 

•Z-IN 

1 

' THIN  *, 

•PHIN 

9 

* PSI N 

*,  » DT 

9 

• TN 

, ' KT1 

*,'  KT2 ' 

9 

* KT3 ' 

9 

' KT4 

1 

•RPS1  *, 

•RPS2 

9 

•RPS3 

* , • RPS4 

9 

' B1 

,'  B2 

','  B3 ' 

9 

• B4  • 

9 

•D1DT 

1 

* D2  DT ' , 

•D3DT 

9 

• DELF 

• , ' DE  LB 

9 

•DEL3 

, • PHDT 

* , 'PHIR ' 

9 

•DFHl  * 

9 

•DFH2 

1 

• U 1 PR ' , 

• U2PR 

9 

•U3PB 

• , • U4PR 

9 

•SI  PR 

, *S2PR 

• , ' S3PB ' 

9 

* S 4 PR  * 

9 

' PPRT 

1 

•FREQ', 

9 

•TQMX 

*,*  KTQ 

9 

• VC 

, * MT SH 

• , ' DS  HM  • 

9 

• TST  ' 

9 

• DSLP 

1 

•CGAM* , 

* CS 

9 

• TQB 

TQF 

9 

’ PFL 

, * TTD 

• , ' DSH 1 • 

9 

9 

•ISH5 

1 

1 

' SHI  5 * , 
• • 

r 

• VTPS 

9 

' VHTP 

• , • AMCR 

9 

• ESP 

, • KSL1 

• , • KSL2 ' 

9 

• AA1' 

9 

• A A2 

1 

• CCR ' , 

•CFCR 

9 

• AP 

E PI 

9 

• EP2 

, • AERO 

' , * V Yi  • 

9 

•OMXH  * 

9 

•OMZH 

1 

• RHOA’, 

•CYP 

9 

•CYR 

• , 'CZAL 

9 

•CZQ 

, • CLP 

•,'CLR  ' 

» 

•CMAL' 

9 

•CMQ 

1 

' CN  P » , 

•CNR 

9 

•SF 

', ' V LEN 

9 

• RE  H V 

• 

• 

• • • 
t 

9 

9 

1 

t i 

f 

9 

i t 
# 

9 

• 

, 

','  SNT ' 

9 

•S  NSO  * 

9 

' SNS  1 

1 

DATA  NAMEX 
/*  SNSH* , 

•DIST 

9 

* PL 

• , »TSCP 

9 

'SCSW 

• 

, 

• « • 
, 

9 

9 

1 

• • 

t 

' SI1 

9 

' SI  2 

SI3 

9 

' SI4 

, ' SARF 

• , 'SALF' 

9 

•SARB* 

9 

1 

• SALR  * , 

9 

',  • MT  QB 

9 

' DCSH 

,*  LDF 

• , • LDBF • 

9 

• EK1  ' 

9 

• EK2 

1 

• BMPL  ' , 

•BMPS 

9 

•BMPH 

• , • XB 

9 

' APF  1 

, ' APF2 

• , ' APR  1 • 

9 

' AP  R2 ' 

9 

•MUSF 

1 

• MUS  R * , 

* BCON 

9 

* FCSM 

• ,'S1F 

9 

•SI  R 

,•  KLR 

' , ' KOTF * 

9 

•KOTB* 

9 

1 

i • 

$ 

9 

• , ' FEE1 

9 

'FEE  2 

, • THE1 

• , * THE2 • 

9 

• A L MC  • 

9 

1 

i t 

• 

9 

i • 
t 

9 

• 

/ 

','  HI* 

9 

• H2 ' 

9 

• LAND 

1 

i i 

/ 

9 

•PS01 

' , *PS02 

9 

• BR1 

, • BR2 

','  BR3 ' 

9 

• BR4 ' 

9 

1 

' KC  F * , 

* KCR 

9 

• KSR 

RBI 

9 

• RB2 

, • RE3 

','  RB4 ' 

# 

' A F K1  * 

•AFK2 

1 

' AFK3 ' , 

• ARK1 

9 

* A RK2 

• , • A R K3 

•OFCO 

, • OFC1 

• , 'OFC2 ' 

•OFC3  • 

9 

•ORCO 

1 

* ORC  1 

• ORC2 

9 

’ 0 RC3 

' , ' CPOF 

9 

•CP  IF 

, • CP2F 

• , *CP0R ' 

9 

•CP  IB ' 

9 

•CP2R 

1 

•CROF', 

* CR 1 F 

9 

•CR2F 

• , 'CROR 

9 

•CR1R 

, * CB  2R 

• , ' STSH  • 

/ 

•MMSH* 

9 

•BMPN 

1 

* TQ  BO ' , 

* TQB  1 

9 

i i 
/ 

9 

• 

# 

','  HFC • 

9 

• HRC* 

9 

' DRSH 

1 

' AXLE*, 

• DUAL 

9 

•TIRE 

• , • ROT* 

9 

RAO  ' , 

R A 1 ' , • 

R A 2 ' , *RA 

3 

• , ' RA4 

• 

/ 

EQUIVALENCE  (COMP 

VR  (1) 

, AXAVE) 

DIMENSION  COMPV  R ( 17) 

DATA  RAD/0. 1745329E-1/ 

DATA  MPHIPS/17. 6/ 

REAL* 4 MPHIPS 

RE  AL*4  IOUT  (48)  , I N , SC  A LAC  (48)  , SCALDC  (48) 

INTEGER*2  RTSW  ,PBSi  , L DT  SH  ,OPEN  ,OPDN 
960  FOR  MAT ( ' 1 PABAMETER  VALUES  - MODEL  C - *,20A4,/ 
1 ('  ', 5(14, 3X,A4,'  = ',G12. 5, ','))) 


NIT I 840 
NITI  850 
NITI  860 
NITI  870 
NITI  880 
NITI  890 
NITI  900 
NITI  910 
NITI  920 
NITI  930 
NITI  940 
NITI  950 
NITI  960 
NITI1 080 

NITI1090 
NITI 1 100 
, NITI1 110 
, NITI 1 1 
, NITI1 130 
, NITI1 140 
, NITI1 150 
, NITI 1 160 
, NITI1 170 
, NIT1 1 180 
, NITI 1 190 
, NIT1 1 200 
, NITI1210 
, NITI1 220 
, NIT1 1 230 
, NITI1 240 
NITI 1 250 
, NIT1 1260 
, NITI 1 270 
, NIT1 1 280 
, NITI1 290 
/NITI 1 300 
NITI 1310 
, NITI 1320 
NITI 1 330 
, NITI 1340 
, NITI1350 
, NITI1 36 
, NITI1 370 
, NITI1 380 
NITI1390 
, NITI 1 400 
, NIT1 1410 
# NIT1 1420 
, NITI 1 43 
, NIT1 1 440 
NITI1 450 
NITI 1460 
NITI 1 470 
NITI 1480 
NITI 1 490 
NITI1 500 

NITI 1 520 
NITI1 530 
NITI1540 
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C VHTP  COMPARISON  VARIABLE  INITIALIZATION 

DO  21  1=1,19 
COMP VR  (I)  = 0. 

21  CONTINUE 

TSTEP  = DT  IN 
NUMBR  = 0 
DO  20  1=1,4 
DEL X (I)  = 0. 

20  CONTINOE 

IVHTP  = PAR  A M (129)  + .5 
IAERO  = PAR  AM  (141)  ♦ 0.5 

IDRSW  = PAR AM  (286)  + 0.5 

IAX=P AR  AM  (287)  +0.5 
DUAL  TIRES  ON  SOLID  REAR  AXLE 

IDULTR  = 0,  NO  DUALS 
= 1,  DUALS 

IDULTR  = P AR  AH  (2  88)  + 0.5 
NWHEEL  = 4,  SINGLE  REAR  TIRES 
= 6,  DUAL  REAR  TIRES 
= 10,  DOUBLE  DUAL  REAR  TIRES 
NWHEEL  = PARAM  (289)  ♦ 0.5 

AK  SR F=PARAM  (186) 

AKSLF=PARAM  (187) 

AKSRR=PARAM  (188) 

AKSLR=PARAM  (189) 

TQFM AX=-  1.  E20 
TQRH AX=- 1. E20 
BTVMAX=  * 1.  E20 
EPSK  1=PARAH  (196)  *RAD 
EPSK2=PARAM (197) *RAD 
FEE1=P ARAM  (219)  *RAD 
FEE2=PAR AM  (220)  *R AD 
TB  El =PA  RAM (221) *R  AD 
THE2=PAR AM  (222)  *RAD 
PSIMAX=-1.  E20 
PSIM  =P  SIIN  *R  AD 
XEND=TEND 

EX  IT  2 = PARAM  (18)  *MPHIPS 
TIME25=0.0 
TIME  10  = 0.0 
AN  UHO=0 . 0 
ADENO=0 . 0 
RMAX=-  1 . E2  0 
PSI5=0. 0 
DSWM AX=  * 1.  E20 
PHIM AX=-  1.E20 
ETAM AX= - 1. E20 
ISW7=1 

THRD=1. 0/3.0 
TWN 7=1. 0/27.0 
TOO=0 . 0 
G=  386.4 

APLUSB  = A + B 

HI =R  W-  (AMUF  + B+AMS/  (A+B)  ) *G/  (2  . *AKT1  ) 

H2  = RW-  (AMUF  + B*AMS/  (A  + B)  ) *G/  (2.*  ART  2) 

H3=R  W-  (AMUR  +A*A  M 5/  (A  + B)  ) *G/  (2.*  ART  3) 
H4=RW-  (AMUR  + A *A  MS/  (A  + B)  ) *G/  (2  . * AKT4 ) 

IF  (IDULTR.  NE.  1)  GO  TO  25 

H3  = RW  - (AMUR+A  + AMS  / (A+B))  *G/(4.*AKT3) 
H4  = H3 


NITI1550 
NITI1560 
NIT 1 1 570 
NITI1 580 
NITI1 590 
NITI 1 600 
NITI1 610 
NITI1620 
NITI1 630 
NITI1 640 
NITI1 650 
NITI1 660 
NITI1 670 
NITI1 680 
NITI1 690 
NITI1 700 
NIT II 710 
NITI 1720 
NITI 1 730 
NITI1740 
NITI 1 750 


NITI 1760 
NITI 1770 
NITI 1 840 
NITI1860 
NITI1 870 
NITI1 880 
NITI1 890 
NITI 1 900 
NIT1 19 10 
NITI 1 920 
NITI 1 930 
NITI1 940 

NITI1960 
NITI 1 970 
NITI2040 
NITI2050 
NITI2  060 
NITI 2 070 
NITI2080 
NITI2090 
NITI2 100 
NITI2110 
NITI2 120 
NITI2  130 
NITI2  140 
NITI2 150 
NITI2 160 
NITI2  170 
NITI2  180 
NITI2190 
NITI2200 
NITI221 0 
NITI2220 
NITI 2230 
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NITI2240 


25 


CONTINUE 
RWZ  1 A = 
RWZ2A  = 
RWZ3A  = 
RWZ4A  = 


RW 

RW 

RW 

RW 


- HI 

- H2 

- H 3 

- H4 


TS02=TS/2.  0 

NITI2250 

TSF02  = TSF/2. 

NITI2260 

TF02=TF*  0.  5 

NITI2270 

TIR02  = TIR/2. 

NITI2280 

T0R02  = TOR/2. 

NITI2290 

TR02=TR  * 0.  5 

NITI2300 

IF  (IDULTR.  EQ.  1)  TR02  = (TOR  C2 +T IRO  2)  * 0 . 5 

NITI2310 

TIRTOR=  0. 25* (TIR-TOR) 

NITI2320 

SP  SR  3=  (TAN  (2. 0*HFC/TF)  ) *2. 0/AMUF 

NITI2330 

SPSR  4=  (TAN  (2 . 0*HRC/TR  ) ) *2.  0/A  MUR 

NITI2340 

SM=AMS*AMUF+AMUR 

NITI2350 

UIN=UIZ*MPHIPS 

NITI2360 

VC= VCIN  * MP  H IPS 

ZIN=  (B*  (Hi +ZF)  *A*  (H3*ZR)  )/ (A+E)  * (-1  . ) + PARAM  (29) 

NITI2370 

THEIN=  (H1-H3*ZF-ZR)  / (A  + B)  /RAD 
ARP  S 1 = UIN/H1 
ARPS2  = UIN/H2 

NITI2390 

ARPS3  = UIN/H3 

NITI2400 

ARPS4  = UIN/H4 

NITI2410 

GO  TO  (31,32)  , I A X 

N ITI2440 

30 

AIZP  = AMUF*A*  A + AMUR*B*B  ♦ A I F + AIR 

NITI2450 

GO  TO  33 

NITI2460 

31 

AIZP  = AMUF*  (A  *A  + TF02**2)  + A MUR  *B*B  ♦ AIR 

NITI2470 

GO  TO  33 

NITI2480 

32 

AIZP  = AMUF*  (A*A  ♦ TF02**2)  + A MUR*  (B*B  + TR02**2) 

NITI2490 

33 

CONTINUE 

NITI2500 

GAM1  = AMUF*A-AMUR*B 

NITI2520 

AIZBR=AIZP  + AIZ 

NITI2570 

CIP=B*AMS*G/  (AMUF*  (A  + B)  ) + G 

NITI2680 

CIVP  = A*AMS*G/ (AMUR*  (A+B))+G 

NITI2690 

TQMAXR=TQMAX*ARBR*0. 5 

NITI2700 

TQMAXF=TQMAX*ARFBR*0. 5 

NITI271 0 

AKTQR  = AKTQ*ARBR*0. 5 

NITI2720 

AKTQF=  AKTQ*  ARFBR*0. 5 

NITI2730 

RZF=RW  + ZF 

NITI2740 

RZ  R=  RW+  Z R 

NITI2750 

CA23=CA  2 *CA  3 

NITI2760 

A2T=  0T*CA2 

NITI2770 

CA20=CA0*CA2 

NITI2780 

RA23  = R A2*R  A3 

NITI2790 

R2T=R0T*RA  2 

NITI2800 

RA20=RA0*RA2 

NITI2810 

DELI  DT=  D EL  1 D N 

NITI2880 

EEL 2 DT=DEL2DN 

NITI2890 

DEL3  DT=  DEL3  DN 

NITI2900 

DEL  1 = 0. 0 

NITI2910 

DEL2=0 . 0 

NITI2920 

DEL  3=DEL3IN 

NITI2930 

PHIRD=PHIDN*RAD 

NITI2940 

PHIR=P  HIRN  *R AD 

NITI2950 

DELFW1=DFW1IN*R AD 

NITI2960 

DEL  FW2  = DFW2IN*RAD 

NITI2970 

U1P=U1PIN 

NITI2980 

U2P=  U2P  I N 

NITI2990 

U3P=U3P IN 

NITI3000 
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5432 

4321 
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U4  P=  U4  PI  N 
Si  P=S1  PIN 
S2P=S2P IN 
S3  P=  S3  PI  N 
S4P=S4P IN 
P=PIN*RAD 
Q=QIN*R  AD 
R=RIN*R  AD 
0=01  N 
V=  VIN 
W=  WIN 
X=  X I N 
Y=  Y IN 
Z=ZI  N 

THE=THEIN*RAD 
PH 1= PH I IN* RAD 
PSI=PSIIN*RAD 
0DT=  0. 0 
VDT=0. 0 
WDT  =0. 

PDT  =0. 

QDT  =0. 

RDT=0.  0 
THEDT  =0. 

PHIDT  = 0. 

PSIDT  =0. 

BTVDT  =0. 

XDT  =0. 

YDT  =0. 

ZDT  =0. 

ZETDRF=0 .0 
ZETDLF=0 .0 
ZETDRR=0 .0 
ZETDLR=0.0 
EPDSWI  = 0. 

EPTQRI  = 0. 

TI ME=0 . 0 
JJTIME=0 
DT=0 . 0 

FORMAT  ( • O'  , 8E15.6) 

IH  SW=0 

XB (1 ) =PARAM  (201) 

NBMP=PAR AM  (277)  *0.5 
IF  (NBMP. LT. 2) GO  TO  4321 
DO  5432  1=2,  NBMP 
XB(I)  = XB  (1-1)  +PARAM  (199) 

CONTINOE 

CONTINUE 

CALL  SSRM  (11  , IRIERR) 

RETURN 

ENTRY  NTIAL1 

CALL  LBDAFP (00 , 47 , D ACO , ILBE RR ) 

CALL  TL  DA 

CALL  STCO  (0 , 1ST  COE) 

DT=  DTIN 

ISW1=0 

ISW7=0 

IF  (PPRT.NE.0.0)  WRITE  (LPTR,9  60)  (ALPH 
I PARAM  (K))  , K= 1 , N 1 ) 

FORM  AT  ( 10G12.5) 

RETORN 

END 


•imtaf 

Nmiiii 

NITI 3040 
NITI3050 
NITI3100 
NITI 3120 
NITI3140 
NITI3160 
NITI3180 
NITI3200 
NITI3220 
NITI3240 
NITI3260 
NITI3280 
NITI 3300 
NITI3320 


NITI 3340 
NITI3350 
NITI3360 
NITI3370 
NITI 3 380 
NITI3390 
NITI3400 
NITI 3 4 1 0 
NITI3420 
NITI 3430 
NITI3440 
NITI3450 
NITI3460 
NITI3470 
NITI 3480 
NITI3490 
NITI 3500 

NITI3520 
NITI 3530 
NITI3540 

, 1=1 ,20)  , ( (K,  NAME  (K)  , NITI3550 

NITI3560 

NITI3570 

NITI3580 

NITI3590 
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H-2.1.6  POTSET 


Presented  here  is  the  Fortran  listing  for  the  potentiom- 
eter setting  calculation  subprogram.  The  following  is  performed 
in  POTSET: 

1.  Calculation  of  parameters  used  in  the  potentiometer 
equations . 

2.  Calculation  of  potentiometer  settings. 


C SUBROUTINE  POTSET 

SUBROUTINE  POTSET  POTS 

£*********************************************************************** 

THIS  SUBPROGRAM  CALCULATES  PARAMETERS  USED  IN  THE  POTENTIOMETER 
EQUATIONS  AND  POTENTIOMETER  SETTINGS 
***  ******************************************************************** 


COMMON/D UALS/IDULTR,N WHEEL, TIRO  2, T0R0  2, TI RTOR , VBR ZRP , 

1 FXU5, FXU6, FYU5,FYU6, ALTQ5, ALTQ6,FSI3 ,FSI4,FSI5 ,FSI6 , PPHIR 
CONMON/ZILCH/TQMAXF,TQM AXR, AKTQF, AKTQR , TQ DR F, TQDRR , IDRSW 
COMMON/DEVICE/KEYBD,ITTY,ICDRD,LPTR,LPNT 
COHMON/HHHH/Hl,  H2,H3,H4 
COMMON/S PLTAX/  S PSR3 , S PSR4 , IAX 
COMMON/VARS/P,Q, R,U, V,  N,X, Y,Z,THE,PHI, PSI 

COMMON/EFFS/ANUM, ADEN, ANUMDT, AD ENDT , AN UMO , ADE NO , A NUMDO , ADE NDO , 
1 ANO  UT ,A  DO  UT 

COMMON/COMBLK/  S M , CIP , CIVP , RZ F, RZR , A2T , CA 20 , CA 23, TSF02 , 

1 TRO  2,  TFO2,TSO2,G,THRD,TWN7,R2T,RA2  0,  RA23 
COMMON/T IHBLK/ J JT IM  E ,T I ME, DT 
COMMON/UVW/VC, UIN 

CO  MM  ON/S  P7BLK/N1  ,N2,IP0T  (120)  , I POT  AD  (120)  ,P  ARAM  (4  00) 
COMMON/ADCOUT/  DELI DT , DEL2DT , DE L3DT ,DEL 1 , DEL2, DEL3 , PHI R D, PHIR, 

2 DELFN1 ,DELFW2,S1P, S2P,S3P, S4P 
RE AL*4  I OUT  (48) 

REAL  *4  I POT,  IPOTAD 
EQUIVALENCE 

1 (PAR  AM  ( 1 ) , A M S) 

1 ( PAR  A M ( 4)  , Z F) 

1 (PARAM  ( 7)  ,B) 

1 (PARAM  (1  0)  ,TS) 

1 (PARAM (13), AIZ) 

1 (PARAM  (16)  ,CF) 

1 (PARAM(19) ,AKFl) 

1 (PARAM  (22)  ,AKR4) 

1 (PAR  AM  (25)  ,C  F 1 P) 

1 (PARAM(28)  , CR 4 P) 

1 (PARAM  (31)  ,RW) 

1 (PARAM (34) ,CA0) 

1 (PARAM (37) ,CA3) 

1 (PARAM  (44)  ,AKDL) 

1 (PARAM  (43  ) , WG) 

EQUIVALENCE 
1 (PARAH{46)  ,ANL1) 

1 (PARAM  (49  ) , AIWF) 

1 (PARAM  (52)  ,ARBR) 

1 (PARAM (55) , PTBR) 


(PARAM  ( 2)  , AMUF ) 
(PARAM  ( 5)  ,ZR) 
(PARAM  ( 8)  , TF) 
(PARAM  (11)  , AIX) 
(PARAM  ( 14)  , AIXZ) 
(PARAM  (17)  , RF) 
(PARAM  (20)  , AKF2  ) 
(PARAM  (23)  , CR) 
(PARAM  (26)  ,CF2P) 

(PARAM  (32)  , SCALE) 
(PARAM  (35)  , CA  1 ) 
(PARAM  (38)  , CA4) 
(PARAM  (41)  , AKSC) 
(PARAM  (40)  , TOR  ) 

(PARAM  (47)  , AIFH ) 
(PARAM  (50)  , AIWR) 
(PARAM  (53)  , TSF  ) 
(PARAM  (56)  , YSA1  ) 


(PARAM  ( 3)  , AMUR) 
(PARAM  ( 6)  , A) 
(PARAM  ( 9)  , TR) 
(PARAM  (12)  , AIY) 
(PARAM  ( 15)  , AIR) 

(PARAM  (21)  , AKR3) 
(PARAM  (24)  , RE) 
(PARAM  (27)  ,CR3P) 
(PARAM  (30)  , AKRS) 
(PARAM  (33)  , OT) 
(PARAM  (36)  , CA2) 
(PARAM  (39)  , TI R ) 
(PARAM  (42)  , ANG) 
(PARAM  (45)  , AKSL) 

(PARAM  (48)  , AIF) 
(PARAM  (51)  , AID) 
(PARAM  (54)  , AKFS) 
(PARAM  (57)  , YSA2) 


POTS 

POTS 

POTS 

POTS 

POTS 

POTS 

POTS 

POTS 


POTS 

POTS 

POTS 


POTS 

POTS 

POTS 

POTS 

POTS 

POTS 

POTS 

POTS 

POTS 

MODE 

MODE 

MODE 

MODE 

POTS 

POTS 

POTS 

POTS 

POTS 

POTS 

POTS 

POTS 

POTS 


20 


40 

50 

60 

70 

80 

90 


120 

130 


190 

200 

210 


220 

230 

240 

250 

260 

270 

280 

290 

300 

890 

910 

900 

920 

360 

370 

380 

390 

400 

410 

420 

430 

440 
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1 (PARAH{58)  ,YHS1) 

1 (PAE  AM (61)  , A IDF ) 

1 (PARA M (6 4 ) , QIN ) 

1 (PAR  AM  ( 6 7)  r VIN) 

1 ( PAR  AM  (70  ) , Y IN) 

1 (PARAM(73)  ,PHIIN) 

1 (PARAM (76) ,TEND) 

1 (PARAM(79) , AKT3) 

1 (PARAM  (82)  , EPS  2) 

1 (PARAM  (85)  ,B  1) 

EQUIVALENCE 
1 (PARAM  (88)  , B4)  , 

(PARAM  ( 91)  ,DEL3DN)  , 
(PARAM  ( 94)  , DEL3 IN ) 
(PARAM  ( 97)  , DFB1  IN) 
(PARAM  (10  0)  , U2PIN)  , 
( PA R A M ( 1 0 3)  , S 1PIN)  , 
(PARAM  (106)  , S4PIN)  , 


, (PARAM  (59)  , YHS2)  , 
, (PARAM  (62)  , ARFBfi)  , 
, (PARAM  (65)  ,RIN)  , 
, (PARAM  (68)  , SI  N)  , 
, (PARAM  (71)  , ZIN)  , 
, (PARAM  (74)  ,PSIIN)  , 
, (PARAM  (77)  ,AKT1)  , 
, (PARAM  (80)  , AKT4  ) , 

, (PARAM  (83)  , RPS3)  , 
, (PARAM  (86)  ,B2)  , 

(PARAM  ( 89)  ,DEL  ID N) 
(PARAM  ( 92)  , DELFIN)  , 

, (PARAM  ( 95)  , PHI  DN  ) , 
, (PARAM  ( 98)  , DFW  21  N) 
(PARAM  (101 ) , U3  PIN)  , 
(PARAM  ( 104)  ,S2PIN)  , 


(PARAM  (60) 
(PARAM  (63) 
(PARAM  (66) 
(PARAM  (69) 
(PARAM  (72) 
(PARAM  (75) 
(PARAM  (78) 
(PARAM  (81) 
(PARAM  (84) 
(PARAM  (87) 

, (PARAM  ( 90) 
(PARAM  ( 93)  , 
(PARAM  (96)  , 
, (PARAM  ( 99) 
(PARAM  (102) 
(PARAM  (105) 


(PARAM  (1  07)  ,PPRT)  , (PARAM  (109)  ,RW 
(PARAM  (110)  , TQM  AX)  , (PARAM  (111)  ,AKTQ)  , (PARAM  (1  12)  , VC  IN) 
(PARAM  (113)  ,SWMT)  , (PARAM  (1  14 ) , DSW  CM)  , (PARAM  (115)  ,TST)  , 
1 (PARAM  (1  16)  , DSLP)  , (PARAM  (1  17)  ,CGAM ) , (PARAM  (1  18)  ,CS) 

1 , (PARAM  (1 19)  ,TQRBR)  , (PARAM  (120)  , TQFBR) 

1 , (PARAM  (121)  , PFL)  , (PARAM  (12  2)  ,TTD)  , (PARAM  (123)  ,DSR) 

1 r (PARAM  (124)  ,TSW) 

EQUIVALENCE 


. AKD) 

. PIN) 

, UIZ) 

> II N) 

. THEI  N) 

. DTI N ) 
i ART 2)  , 

, RPS 1 ) 

, RPS4) 

, B3) 

, DEL2DN) 
DELRIN) , 
PHIRN)  , 

, U 1 PIN)  , 
rU 4P IN)  , 
, S3PIN)  , 
SF) 


(PARAM  (130)  , AMCR)  , 
(PARAM  (133)  , A KSL2  ) 


(PARAM  (136)  ,CCR)  , 
(PARAM  (139)  , EP  1 ) , 
(PARAM  (142)  , ERR 2)  , 
(PARAM  (1  43)  , AML  1)  , 
(PARAM  (14  6)  ,RSR) 
EQUIVALENCE 
1 (PARAM  (223)  ,CR1C) 

1 (PARAM  (226)  ,CR2T) 

1 (PARAM  (22  9)  ,CR4C) 

1 (PARAM  (232)  , AH2)  , 

EQUIVALENCE 
1 (PARAM(284)  , HFC)  , 

EQUIVALENCE 
1 (PARAM  (29  0)  , ROT)  , 
1 (PARAM  (29  3)  ,RA2)  , 


(PARAM  (13  1)  , ESP)  , 
, (PARAM  (1  34)  f A A 1) 
(PARAM  (1  37)  , CFC  R ) , 


(PARAM  (132)  , A KSL 1 ) 
, (PARAM  (135)  , A A2)  , 
(PARAM  (138)  , AP)  , 


(PARAM  (140)  , EP2 ) , (PARAM  (141)  , ERR  1 ) , 

\ (PARAM  (144)  ,AML2)  , (PARAM(145)  ,RRIM) 


, (PARAM  (224)  ,CR1T)  , 
, (PARAM  (227)  ,CR3C)  , 
, (PARAM  (230)  ,CR4T)  , 
(PARAM  (233)  , AL  AMBD) 


(PARAM  (225)  ,CR2C 
(PARAM  (228)  ,CR3T 
(PARAM  (231)  , AH  1 ) 


) , 
) / 


(PARAM  (285)  ,HRC) 

(PARAM  (291)  #RA 0 ) 
(PARAM  (294)  ,RA3) 


(PARAM  (292)  ,RA1) 
(PARAM  (295)  ,R A 4) 


EQUIVALENCE  (PAR A M ( 35 1 ) ,IOUT  ( 1 ) ) 

N1  , N2  EQUATED  TO  THEIR  VALUES  IN  MAIN 
HUN  = 0.  01 


TOU=0.  00  1 

AIBR=AIHR+AID*ARBR**2*0.25 
AIBRP=  AIER- AIMR 

AIFBR  = AIWF  + AIDF*ARFBR*2  * 0.25 

AIFBRP  = AIFBR  - AIWF 

RPS1 =UIN/H1 

RPS2=UIN/H2 

RPS3=UIN/H3 

RPS4=UIN/H4 

CALL  SSRM (0 1 ,IRLERR ) 

IF(RF.GE.O)  CALL  SSRP  (0 1 ,1  RLE  RR ) 
CALL  SSRM (08 ,IRLERR) 

IF(RR.GE.O)  CALL  SS  RP  ( C8 ,1  RLE  RR) 
CALL  SSRM(13,IRLERR) 


POTS  450 
POTS  460 
POTS  470 
POTS  480 
POTS  490 
POTS  500 
POTS  510 
POTS  520 
POTS  530 
POTS  540 
POTS  550 
POTS  560 
POTS  570 
POTS  580 
POTS  590 
POTS  600 
POTS  610 
POTS  620 
POTS  630 
POTS  640 
POTS  650 
POTS  660 
POTS  670 
POTS  680 
POTS  690 
POTS  700 
POTS  710 
POTS  720 
POTS  730 
POTS  740 
POTS  750 
POTS  760 
POTS  770 
POTS  780 
POTS  790 
POTS  800 

POTS  830 
POTS  840 
POTS  850 
POTS  860 
POTS  870 

POTS1 000 
POTS1 010 
POTS  1 020 
POTS  1 030 
POTS1 040 
POTS1 050 
POTS1 060 
POTS1 070 
POTS  1080 
POT Si  090 
POTS  1 100 
POTS1 880 
POTS1 890 
POTS1 920 
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IF  (THE.  GE.  0.  ) CALL  SSRE  (1  3,  IRLEFR) 
SFSF=SCALE/10000. 

IPOT  (0  1) =. 2 
IPOT  (02)  =G/4  00 . 

IPOT  (05) =U/ 1200. 

IPOT  (06)  = . 2 5*PA  RAH  (175) 

IPOT  (0  7)  =2. /3.  * PAR  AM  (17  5) 

IPOT  (08)  =.6*  PAR  AM  (17  5) 

IPO T (09)  = .7 

IPOT  (12)  =PARAM  (175)  * .15 

IPOT  (1  3)  =.  4 

IPOT  (1  4)  =.  5*  PA R AM  (175) 

IPOT  (16  ) =TOU*CF  IP*.  1 
IPOT  (17)=.  2*PA R A M (17  5) 

IPOT  (19)=.  2*TOU *CF1  P 
IPO T (20)=  4.  * (ABS  (THE)  ) 

IPOT  (21)  =.  3*PAR AM  (175) 

IPOT  (22) =TOU*CF2P*.  1 
IPOT  (23)  =P  SI/4  . 

IPOT (24) =. 2*TOU*CF2P 
IPOT  (27)  =TOO*CR3P*.  1 
IPO T (2 8)  = . 5*PARAM  (175) 

IPOT  (29) =. 2*TOU *CR3P 
IPOT  (3  8)  =HUN*PARAM  (175)  *4. 

IPOT (49) =TOU*CR4P*.  1 
IP  OT  (5  0 ) =A  IB  RP/  AI  ER 
IPOT  (51)  =PAR  AM  (175) 

IPOT  (5  2)  =.  2*PAR  AM  (17  5) 

IPOT  (54)  = .2*TOO*CR4P 

IPOT  (55)  =.  2 

IPOT  (57)  =P ARAM  (175) 

IPOT  (58)  =8.  *A/2000. 

IPOT  (60)  =100  ./AKF1 

IPOT  (61)  =100.*  AMS/SC  ALE 

IPOT  (62)  =100./AKR3 

IPOT  (6  3)  =SFSF 

IPOT  (64)  =SFSF 

IPOT  (65)  =SFS  F 

IPOT  (68)  =1  00./AKR4 

IPOT  (69) =SFS  F 

IPOT  (7 2)  =57.  3/  (1.  5*2  00.) 

IPOT  (73)  =P A R A M (175) 

IPOT  (77)  =H0N*PARAM  (175)  *4. 

IPOT  (78) =8. *B/2000. 

IPOT (79) =5 7. 3/ (4. *200.) 

IPOT  (8  4)  =.  2*  PAR  AM  (17  5) 

IPOT  (85)  =P A R A M (175) 

IPOT  (87)  =IPOT  (57) 

IPOT  (88)  =10. /A 
IPOT  (89)  =10. /B 
IPOT  (90) =0. 

IPOT  (91)  =0. 

IPOT  (9  6)  =1./  (1. 6*1 1 . *P ARAM  (17  5)  ) 
IPOT  (100)  =PARA M (175) 

IPOT  (10  1)  = HUN*RPS  1 
IPOT  (10  3 ) = TO U*G 
IPOT  (104)  =.  96 
IPOT  (10  5)  = PA  RAM  (175) 

IPOT  (106)=  100./AKF2 
IPOT  (10  8)  = . 3*PARAM  (175) 

IPOT  (1  10)  = HON*RPS3 
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IPOT  (1  1 1 ) = . 8 
IPOT  (1  12)  = . 08 
IPO  T ( 1 1 3 ) = G*  TO  0 
IPOT  (1  14)  = . 15 
IPOT  (1  15)  = . 48 
IPOT  (117)=. 2 
IPOT  (1  18)  = G*TOU 
IPOT  (1  1 9)  = IPOT  (50) 

c *******  SPLIT  FRONT  AXLE  LOGIC  FOR  680  ***** 

CALL  SSCL (02 , IRLERR) 

CALL  SSRH  (0  0 , I BLERR ) 

CALL  SSRP  (0  3#  IRLERR) 

CALL  SSRP  (07, IRLERR) 

IPOT  (03) =ZF*TOU*PARAH  (175)  *4. 

IPOT  (04)  = (HON*  (ABS  (RE)  )/ (TF*TF)  ) *.  1 
IPOT  (18)  =20. /TF 

IPOT  (31)  =2.  *SCALE*PARAH  ( 1 75 ) / ( 1 000  0 . * AH  OF) 
IPOT  (32)  =0. 

IPOT  (3  3)  =8  . *TF/4000  . *PARAM  (17  5)  *2. 

IPOT  (34)  =0.0 

IPOT  (37)  =HUN *P A R A H (175)  *4. 

IPOT  (39)  =0. 

IPOT  (41)  =IPOT  (03) 

IPOT  (4  3)  =8  . *TF*PA  RA  H ( 1 75)  /4  00  0.  *2  . 

IPOT  (44)  =0. 

IPOT  (47)  =0. 

IPOT  (48)  =2  . * SC  A LE  *PA  RA  fi  (1  75 ) / (1  COO  0 .*  AH  OF ) 
IPOT  (56)  =0. 

IPOT  (59)  =0. 

IPOT  (66)  =0. 

IPOT  (67)  =0  . 

IPOT  (7  0)  =.  2*  PA  RAM  (175) 

IPOT  (74 ) =P AR AH  (175) 

IPOT  (76)  =PAR AH  (175) 

IPOT  (107)=. 9999 
IPOT  (1  09)  = . 9999 
IPOT  (1  1 6)  =.  9999 
IF(IAX.NE.O)  GO  TO  1024 
****  SOLID  FRONT  AXLE  LOGIC  FOR  680  ***** 

CONTROL  LINE  #02  OSED  WITH  INTEGRATOR  A70 
CALL  RSCL(02, IRLERR) 

CALL  SSRP  (00,  IRLERR) 

CALL  SSRH  (03, IRLERR) 

CALL  SSRH  (07,  IRLERR) 

IPOT  (03)  =0. 

IPOT  (04  ) =0 . 0 
IPOT  (18)  =20./TSF 

IPOT  (31)  =TSF02*SCALE*PARAH  ( 17  5)  / ( 1 00.  * AIF) 
IPOT  (32)  =TSF02*SCALE*PARAH  (175)/(100.*AIF) 
IPOT  (33)  =0.0 

IPOT  (3  4)  =.  4*  PAR  AH  (1  75)  *2. 

IPOT  (3  7)  =.  25*PA  R A H ( 1 75)  / 1 0 . *1  6 . 

IPOT  (39)  =.  25*  (ABS  (RF)  )/  (100  00  .*TSF)  *4. 

IPOT  (41 ) =ZF*TQU*PARAH  (175)  *4. 

IPOT  (43)  =0. 

IPOT  (44)  =IPOT  (39) 

IPOT  (47)  =HUN*TSFO 2 

IPOT  (4  8)  =SCA  LE*PA  RA  M (175)/(1000C.*AHUF) 
IPOT  (56 ) =S  CALE*  P AR  A H ( 1 75 ) / ( 10  00  0.  * AM  UF) 
IPOT  (59)  =IPOT  (4  7) 
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IPOT  (66  ) = TSF02*.  0 1 
IPO T (67)  =IPOT  (66) 

IPOT (70) = 0. 

IPOT  (74)  =0. 

IPOT  (76)  =P  A R A M (175) 

IPOT  (1  07  ) = 0 . 

IPOT  (1  09)  = 0. 

IPOT  (1  16)  = 0. 

1024  CONTINUE 

IF  (I AX . EQ.  2)  GO  TO  1021 
** * ♦♦SOLID  REAR  AXLE  LOGIC  FOR  68  0 ******* 

CONTROL  LINE  #01  USEE  WITH  INTEGRATOR  A9 5 
CALL  RSCL  (0  1 , I RL  ERR ) 

CALL  SSRM  (09, IBLERR) 

CALL  SS RP  (1 0, IBLERR) 

CALL  SSRM  (1  4, IBLERR) 

IPOT  (26)  = (ABS(RR)  /T S)  *.0001 
IPOT  (30) =20. /TS 
IPOT  (35)  =(HUN*TS02) 

IPOT  (36)  = (TS 02)  *.01 
IPOT  (42)  =P  A R A M (175) 

IPOT  (45)  =IPOT  (36) 

IPOT  (46)  =IPOT  (35) 

IPOT  (53)  =IPOT  (26) 

IPOT  (7  1 ) =0 . 

IPOT  (80)  =ZR*TOU*PARAM  (175)  *4. 

IPOT  (81)  =SCALE*PARAM  (175)/  ( 10  0 0 0.  * AM  UR  ) 
IPOT  (82)  =0  . 

IPOT  (8  3)  =SCA  LE*PA  RA  M (175)/(10C0C.*AMUR) 
IPOT  (92)  =0.0 

IPOT  (9  3)  =TS0  2*SCALE*PARAM  (1  75  )/  (10  0.*AI  R) 
IPOT  (9  4)  =TS02*SCALE*PAFAM  (175)/  (100.* AIR) 
IPOT  (9  5)  =.4*  PA  RAM  (175)  *2. 

IPOT  (97)  =0.0 
IPOT (98) =0. 0 
IPOT  (99)  =0.0 

IPOT  (102)=.05*PARAM  (175)  *8. 

IF(IAX.EQ.O)  GO  TO  1028 
IPOT  (107)=. 9999 
IPOT  (109)  = . 9999 
IPOT  (1  1 6)  =.  9999 
1028  CONTINUE 

GO  TO  1022 
1021  CONTINUE 

C *****  SPLIT  REAR  AXLE  LOGIC  FOR  680  ****** 
CALL  SSCL  (0  1 , IRL ERR  ) 

CALL  SSRM  (10, IBLERR) 

CALL  SSRP  (0  9,IRLERR) 

CALL  SSRP  (14 , IBLERR) 

IPOT  (26) =0. 

IPOT  (30)  =20.  /TR 
IPOT  (35)  =0. 

IPOT  (36)  =0. 

IPOT  (42)  =P A R A M (175) 

IPOT  (45)  =0. 

IPOT  (46)  =0. 

IPOT  (53)  =0. 

IPOT  (71)  = (ABS  (RR)  ) / (10C0.*TR**2) 

IPOT  (80)  =ZR*TOU*PARAM  (175)  *4. 

IPOT  (81  ) =0.0 
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IPOT  (82)  =8  . * TR*  PA  RA  M ( 1 7 5) /4  00  0.  *2  . 

IPOT  (8  3)  =2.  *SCALE*PARAM  (1 7 5 ) / (1  000  0 . * AM  UR  ) 

IPOT  (92)  =IP0T  (80) 

IPOT  (93)  =2.*SCA  LE*PARAM  (1  75)  / (1  COO  0 . * A M UR ) 

IPOT  (94) =0. 

IPOT  (95)  =0.0 

IPOT  (97)  =8.  +TR/40  00.  *PARAM  ( 17  5)  *2. 

IPOT  (98)  =PARAM  (175) 

IPOT  (99)  =.  2*PARAM  (175) 

IPOT  (102)  = HUN*PARAM  (175)  *4. 

IPOT  (107)=. 9999 
IPOT  (1  09)  = . 9999 
IPOT  (1  1 6)  =.  9999 
1022  CONTINUE 

C ***  IDRSW=0,  REAR  WHEEL  DRIVE 
c ****  IDR SS= 1 , FOUR  WHEEL  CBIVE 
IF  (IDRSW.NE.  1)  GO  TO  1C25 
IPOT  (90)  =AIFBRP/A  IF  BR 
IPOT  (9  1)  =1  POT  (90) 

1025  CONTINUE 

C FOUR  WHEEL  IND  SUSPENSION 

COMCON  = PARAM  (175)  **2*  (.008+  .5 *PAR AM  (7  5)  /PA RAM  (175))/100. 
IPOT  (10)  = (PARAM  (77)/PARAM  (2)  ) *COMCON*PAR AM  (176)  *2. 

IPOT  (11)  = (PARAM  (78)/PARAM  (2)  ) *COMCON*PARAM  (176)  *2.*0. 5 

IPOT  (15)  = (PARAM  (79)/ PA  RAM  (3))  *COMCON*  PA  RAM  (176)  * 2. 

IPOT  (25)  = (PAR  AH  (80)/PARAM  (3)  ) *COMCON*PAR  AM  (176)  *2.*0. 5 

IF ( I AX . EQ. 2)  GO  TO  500 
C IND  FRONT,  SOLID  REAR 

IPOT  (15)  = ( (PARAM(79)  + PA  R A M ( 80) ) /PARAM  (3 ) ) *COMCON*PAR  AM  (1  76) 
IPOT  (25)  = { (PARAM  (.79)  +PARAM  (80) ) *TR02**2  *COMCON*P ARAM  (176)  ) 

1 /PARAM  (15)  *5. 

IF (IAX. EQ. 1)  GO  TO  500 
C SOLID  FRONT  AND  REAR 

IPOT  (10)  = ( (PARAM(77)  +PA  R A M (78 ) ) /P  AR  A M (2))  *COMCON*PARAM  (176) 
IPOT  (11)  = ( (PARAM (77)  +PARAM  (78)) *TF0  2**2*C0MC0N*PARAM  (176)  ) 

1 /PARAM  (48)  *5. 

500  CONTINUE 
RETURN 
END 
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H-2.1.7 

Presented  here  is  the  Fortran  listing  for  the  mathemati- 
cal model  subprogram.  The  following  is  performed  in  MODEL: 

1.  Reading  of  the  ADC  variables. 

2.  Computation  of  simulation  time. 

3.  Calculation  of  digital  model  equations. 

4.  Data  preparation  for  output  of  the  DAC  variables. 

5.  Detection,  limiting,  and  flagging  of  ADC  and  DAC 
variable  overloads. 

6.  Collection  of  TRACK  data  for  output  at  the  end  of 
a run. 


C SUBROUTINE  MODEL  10 

SUBROUTINE  MODEL  20 

C ***  ********** *********************************  *************** ***********  30 

C THIS  SUBPROGRAM  PERFORMS  THE  FOLLOWING  : 40 

C 1)  READING  OF  THE  AN ALOG -TC - DIG  IT AL  ( ADC)  CONVERTER  VARIABLES  50 

C 2)  CO MP UT ION  OF  SIMULATION  TIME  60 

C 3)  CALCULATION  OF  DIGITAL  MODEL  EQUATIONS  70 

C 4)  DATA  PREPARATION  FOR  OUTPUT  ON  THE  DIGITAL-TO-ANALOG  (D/A)  80 

C CONVERTERS  90 

C 5)  DETECTION,  LIMITING,  AND  FLAGGING  OF  ADC  AND  D/A  VARIABLE  100 

C OVERLOADS  110 

C 6)  COLLECTION  OF  TRACK  DATA  FOR  OUTPUT  AT  THE  END  OF  RUN  120 

C***  ************************************************************* *******  130 

COMMON/START/  ZDUMHY(4)  140 


COM  MON/IAN DG/  AIXP, AIXZP,GAM1  , G AM2 , GAM3 , G AM4 , GAM5 , GA M6 , 
1GAM7,GAM8,GAM9 ,AIYP,AIZP 
COMMON/CFRC/  SL  (4)  , SEP  (4)  ,CFCOEE  (4  ) , ARPS  (4) 

COMHON/TCM/  COS  ABG  (3,4)  , COA  BG  H (3,4)  , CO  SAC  (4)  ,COSBC  (4)  ,COSAR  (4)  , 
1COSBR  (4)  ,CO SGR  (4)  , PSI  P (4 ) , H CO SG  (4)  , T (3,  3)  ,XYZDOT  (3) 

2 , SINPHI  (4)  ,CO  SP  HI  (4) 

CO  MM  ON/ F AN  DM/  FRXU  (4)  , FRY  U (4)  ,FRZU  (4)  ,FCXU(4)  ,FCYU  (4)  ,-FCZU  (4)  , 


1 FS  XU  (4)  , FSYU  (4)  , F SZ  U (4)  ,F  RI  P ( 4 ) ,H  (4)  ,SNEHIF,SN  PHI  R , F ZU I (4) 

CO  M MON/E  MON/I  ER  DAC  ( 1 0)  ,T  ER  D AC  (1  C)  , I DACK  , I ENDR  (20)  150 

COMMON/ERMON  2/  IERA DC  ( 1 0) , T ER A DC ( 1 0)  , I A DCK  160 

CO MM ON /DAC A DC/  N A MD AC , NAMADC , I D AC , I ADC , ADCNUM , D ACNUM  170 

COMMON/ AERO/ SFXS ,SFYS,SFZS, SNTHES, SNPHIS, SNPSIS, APLUSB , IAERO  180 

COMMON/DUL VAR/Z3ID, Z4ID  , Z50D , Z6CD,  190 

1 F3RID, F4RID, F5ROD,F6ROD,  200 

1 U3ID, U4ID,U50D, U6CD,  210 

1 V3ID,V4ID,V50D, V6CD,  220 

1 W3ID, W4ID,W5CD, W60D,  230 

1 UG3ID,UG4ID,UG50D,UG60D,  2*0 

1 VG3ID,VG4ID, VG5CD,VG60D,  250 

1 UG3IDP,DG4IDP,UG5CDP,UG60DP,  260 

1 S3ID,  S4ID,S50D,  S60D,  270 

1 CF3ID,CF4ID,CF50D,CF60D,  280 
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1 AMUI3 , AMU  14, AMD  15, AM  016, 

1 ALTQ3P,ALTQ4P, 

1 OTM3P,OTK4P,OTM5,OTM6 

COMMON/DUALS/ID  ULTR  , N WHEEL  , TI  RO  2,  TORO  2 , TI  RTOR, VBRZRP, 

1 FXU5, FXU6, FYU5, FYU6, AITQ5, ALTQ6,FSI3 , F SI  4 , FSI5 , FSI6 ,PPHI R 
COMMON/FAUL/  D1 , D2 , D3 , E4, S F YU , TMP, SNPHI U, SNTHEU , SNPSIU , 

1QDT,PDT , RDT  , UDT , VD T , WDT # PHI DT  ,TH EDT, PSI DT , XDT , YDT , ZDT , 

1 AKK1 , AKK2  , THS1,THS2, 

1AMT1,AMT2,SN,SFXU,BTVD1,ETAX,ETAL, 

1 ZIP  (4)  , PH  1 1 (4)  , 

1 Oil  (4)  ,BA  MI  (4)  , HUP  (4)  , SAMI  (4)  , FI  (4)  , FXUI  (4)  , FYUI  (4)  , GI  (4)  , 

1 ALFI  (4)  ,BETIP  (4)  ,BET IB  R (4)  ,SLIPI  (4)  rAHlI  (4)  ,AH2l  (4)  ,U0I  (4)  , 

1 FCI  (4)  , FCIM AX  (4)  , FS I (4)  , 

1 ABI  (4)  , B ETAI  (4)  , AMUI  (4)  , SNI  (4)  , R MI  (4)  , GBI  (4 ) ,FRIBR(4)  , 

1 RHZI  <4)  , ZI  (4)  , FRI  (4)  , 01  (4 ) , VI  (4)  , WI  (4)  , U GI  (4 ) , 

VGI  (4)  ,S  IN  PS  I (4)  , PS  1 1 (4)  rCOSPSI  ( 4)  ,UGIP  (4)  , PHICGI  (4)  ,CVI  (4) 
1 , ALTQ  (4)  ,OTM  (4)  , SALTQ ,FOTM , ROTH 

1 ,AP1 ,AP2,AP3, AP4, AR1 , AR2, AR 3, AR  4, ANT1 1 , AN TI2 , ANTI 3 , ANTI  4 
1 , DL IS  ( 4)  ,ZIMX(4)  ,FBS1,FBS2,FBS3,FBS4 
1 ,PHIDMX 

COMMON/APL/  OPEN  ,RTSN  , LDTSW  ,RBSW 
COMMON/SFLTAX/  S PSR3 , S PSR4 , IA X 
COMMON/SOLDAX/  PHIPNT  (07)  , THE  FNT  (07)  , 

1 PSIFNT  (7)  ,PHIRR  (7)  , THERE  (7)  ,PSIRR  (7) 

COMMON/E  XT  R A/  PSI 3S  , PSI4S, BTV  , AYSTI 

COM HON /T HING S/TM  A XI ,THAX2,TMAX3 ,TQ RM AX , TQ FHAX , PSIM AX , ON ER 
COMMON/CACATO/EPS  K1 , EPSK2, F EE  1 , FEE2, THE  1 , THE2 
COMHON/DELS/DELSWC 
COMMON/X  YZ/NDM  BR 

COHMON/EFFS/ANUM, ADEN,ANUMDT, ADENDT ,ANUMO  ,ADENO, ANUMDO , ADEN  DO, 

1 A NOUT , ADOUT 

COMMON/X BS/XB  ( 3 0)  ,N  S (4 , 30)  , DE I X (4)  , XI  (4)  , NNN 
COMMON/VARS/P,Q,R,U, V,W,X, Y,Z,THE,PHI, PSI 
COMMON/U  VW/V  C,  U IN 
COM  MON/E  ES/O  1,02,03,E4,E5,E6 

COMMON/ZILCH/TQM  AXF ,TQM  AXR  , AKTQF,  AKTQR,  TQ  DRF,  TQDRR  , IDRSS 
COM  MON/ 1 NOUT/  IN  (48)  ,DACO  (48)  ,ISW1  ,ISW7  rIPRT 
COMMON/COMBLK/  SM ,CIP, CIVP, RZ F, RZR , A2T , CA 20 , CA 23, TSF02 , 

1 TR02,TF02,TS02,G,THRD,TWN7  ,R2T,RA2  0,  RA23 
COMMON/SWITCH/  IS H 

COMMON/O PS W/IHSW 

COMM  ON/S  P7  BLK/N1  , N2 , IPCT  (12  0)  ,IPOTAD(120)  ,PARAM  (400) 

COMMON/AECOUT/  DELI DT  ,DEL2DT, DEI3DT, DEL  1, DEL 2, DEL3 , PHIR DrPHIR , 

2 DELFW1 ,DELFW2,S1P, S2P,S3P,S4F 

COM  MON/N  EWER/TI ME25 ,TIME10, PSI5,PHIMAX, DSWMAX 
COM MON /NON AM  E/XEND , 0 , EXIT2 

COMMON/COM VAR/  AXAV  E, CUVRAT , BETDMX , CURT BP , TIM DEC , JUMP, DELSTR, DEL, 

1 AXI,CURVAV, ABBTV,AYMAX,RMAX, DELBET, DELPSI, BETAMX, 

1 TIMBMP , GETDL,TIMIN5r  TSTEP  , IVHTP 

COMMON/TIMBLK/J  JTIME  , TIME , DT 
COM MON/DEV ICE/ KEYED ,ITTY, ICDR D, LPT R , LPNT 
COMMON /TRACK/JIN, IKEEP,ATRACK  ,1  SAMP , ONTIM ,0FF1IM , IT RA , 

1 ITRAA,ITRNA,ITRIA 
COM MON/I C/D ACPL A, ADCPLA,SCALDC, SCALAC 

COMMON/SPRING/  DLS US  1 »DLS US2  ,D ISU S3  ,DLSUS4  , DELSF1  (10)  , DELS  F2  (10)  , 
1DELSR3  (10)  , DELS  R4  (10)  , FDLS  F 1 (10),FDLSF2  (1  0)  , FDLSR  3 ( 1 0)  , FDLSR4  ( 1 0)  , 
IN  DEL  FI  ,NDELF2,NDELR3,NDELR4 
COMMON/ERAKE/TQFBL,  TQRBL 

CO  M MON/S  HOC  KS/ZDBPRF  (10)  , Z DBPLF  (10)  ,ZDBPRR  (10)  ,ZDBPLR  (10)  , 

1 SAFRF  (10)  »SAFLF  (1  0)  , SAFER  (1  0)  ,SAFLR  (10)  , 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
42  0 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
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560 
570 
580 
590 
600 
610 
620 
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670 


740 

750 

760 


770 

780 

790 

800 

810 

820 

830 

840 
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2 NRF, NLF, NRR, NLR , 

3 ZETDRF,ZETDLF ,ZETDRR ,ZETDLR , 

4 A KS  R F , AKSLF, A KS E R , AK SLR , FSA RF . FS ALF . FSAR R .FSA LR 


REAL  *4  ZDUMMY 
EQUIVALENCE  (BV  ALUE  ( 
EQUIVALENCE  (A PF  { 1 ) 
1 (APF  {2 ) 

EQUIVALENCE 
1 (PARAM ( 1) , AMS) 

1 (PARAM  ( 4)  ,ZF) 

1 (PAR  AM  ( 7)  , B ) 

1 (PARAM ( 10)  ,TS) 

1 (PARAM (13) ,A IZ) 

1 (PARAM  (16)  ,CF) 

1 (PAR  A M ( 19  ) , AKF1) 

1 (PAR  AM  (22)  ,AKR4) 

1 (PARAM(25)  , CF  1 P) 

1 (PAR  AM  (28)  ,CR4P) 

1 (PARAM(31) ,RW) 

1 (PARAM  (34)  , C AO ) 

1 (PARAM  (37)  ,CA  3) 

1 (PARAM(44) ,LAFT) 

1 (PAR  AM  (43)  , LA  FC ) 


1)  , ZDUMMY  (1) ) 

,AFF1)  , (AER  (1)  ,APR1  ) , 
AEF2)  , (APR  (2)  , APR2  ) , 

, (PARAM  ( 2)  , AMUF) 

, (PARAM  ( 5)  , ZR) 

, (PARAM  ( 8)  ,TF) 

, (PARAM  (11),  AIX) 

, (PARAM  (14)  , AIXZ) 

, (PARAM  (17)  ,RF) 

, (PARAM  (20)  , AKF2) 

, (PARAM  (23)  ,CR) 

, (PARAM  (26)  ,CF2P) 

, (PARAM  (32)  , SCALE) 
, (PARAM  (35)  ,CA1) 

, (PARAM  (38)  ,CA4) 

, (PARAM  (41)  , AKSC) 

, (PARAM  (40)  , TOR  ) 


(MUS  (1)  r MUSF)  , 

(MUS  (2)  ,MUSR) 

, (PARAM  ( 3)  , AMUR)  , 

, (PARAM  ( 6)  , A)  , 

, (PARAM  ( 9)  ,TR)  , 

, (PARAM  (12)  , AI  Y)  , 

, (PARAM  (15)  , AIR)  , 

9 

, (PARAM  (21)  , AKR3)  , 

, (PARAM  (24)  , RR)  , 

, (PARAM  (27)  ,CR3P)  , 

, (PARAM  (30)  , AKR S ) , 

, (PARAM  (33)  ,0T)  , 

, (PARAM  (36)  , CA2)  , 

, (PARAM  (39)  , TI R ) , 

, (PARAM  (42)  , ANG)  , 

, (PARAM  (45)  , LARC) 


EQUIVALENCE 


1 

(PARAM (46)  , L A RT) 

9 

(PARAM  (47) 

, AIFW ) 

9 

(PARAM  (48) 

,AIF) 

1 

(PARAM  (49  ) , A IMF ) 

9 

(PARAM  (50) 

, AI HR ) 

9 

(PARAM  (51) 

,AID) 

1 

(PARAM  (52)  , A RBR) 

9 

(PARAM  (53) 

, TSF  ) 

9 

(PARAM  (54) 

, AKFS ) 

1 

(PARAM(55)  , PT  BR) 

9 

(PARAM  (56) 

, YS  A 1 ) 

9 

(PARAM  (57) 

, YSA2) 

1 

(PAR  AM (58)  , YHS1) 

9 

(PARAM  (59) 

, YHS2 ) 

9 

(PARAM  (60) 

, AKD) 

1 

(PARAM(61) , AIDF) 

V 

(PARAM  (62) 

, ARFBR) 

9 

(PARAM  (63) 

.PIN) 

1 

(PARAM  (64)  , QIN  ) 

9 

(PARAM  (65) 

,RIN) 

9 

(PARAM  (66) 

, UI Z) 

1 

(PARAM  (67)  , VIN) 

9 

(PARAM  (68) 

,WIN) 

9 

(PARAM  (69) 

, XI N) 

1 

(PARAM  (70)  , Y IN ) 

9 

(PARAM  (71) 

,ZIN) 

9 

(PARAM  (72) 

, THEIN) 

1 

(PAR  AM (73) , P HIIN ) 

9 

(PARAM  (74) 

, PSI I N) 

9 

(PARAM  (75) 

, DTIN) 

1 

(PARAM (76)  , T EN  D) 

9 

(PARAM  (77) 

, AKT1 ) 

9 

(PARAM  (78) 

, AKT2 ) 

1 

(PARAM  (79)  , AKT3) 

9 

(PARAM  (80) 

, AKT4) 

9 

(PARAM  (81) 

, RPS 1 ) 

1 

(PAR  AM  (82)  ,RPS2) 

9 

(PARAM  (83) 

, RPS3 ) 

9 

(PARAM  (84) 

, RPS4) 

1 

(PARAM  (85)  , B 1 ) 

9 

(PARAM  (86) 

,B2) 

9 

(PARAM  (87) 

/ B3) 

EQUIVALENCE 

1 (PARAM  (88)  , B4)  , (PARAM  ( 89 ) , DEL  1 DN)  , (PAR AM  ( 90 ) ,DEL2DN) 

1 (PARAM  ( 9 1)  ,DEL3DN)  , (PARAM  ( 92),DELFIN),  (PARAM  ( 93)  ,DELRIN) 
1 (PAR  AM  ( 94)  ,DEL3IN)  , (PARAM  ( 95),PHIDN),  (PARAM  (96)  , PHIRN)  , 

1 (PARAM  ( 97),DFW1IN),  (PA  RA  H ( 98  ) , DFH  21 N)  , (PAR  A M ( 99),U1PIN), 

1 (PARAM  (100)  , U2PIN)  , (P  A RA  M ( 10  1 ) , U3PIN ) , (PARAM  ( 102)  , U4PIN)  , 

1 (PARAM  (103)  , S1PIN)  , (PA  R A M ( 1 04  ) , S2  PIN  ) , (PARAM  (105)  ,S3PIN)  , 

1 (PARAM  (106)  ,S4PIN)  , (PAR  AM  ( 1 07)  , PPRT)  , (PAR  AM  ( 1 08)  , FREQ) 

1,  (PARAM  (110)  , TQM  AX)  , (PARAM  (11  1)  ,AKTQ)  , (PARAM  (1  12)  ,VCIN) 

1 , (PARAM  (11  3)  ,SWMT) , (PARAM  (1  14)  , DSWCM)  , (PARAM  ( 1 1 5)  , TST)  , 

1 (PAR  AM  (116)  , DSLP)  , (PARAM  (117)  ,CGAM)  , (PA  RA  M (1 1 8 ) , CS ) 

1 , (PARAM  (1  19)  , TQR  BR ) , (PARAM  ( 12  0)  , TQFBR) 

1 , (PARAM  (121)  ,PFL)  , (PARAM  (122)  ,TTD)  , (PARAM  (123)  ,BSH) 

1 , (PARAM  (124)  ,TSW ) 

EQUIVALENCE 

1 (PARAM  (130)  , AM  CR)  , (PARAM  ( 1 3 1)  ,ESP)  , (P  AR  AM  (1 32)  , AKSL1 ) , 

1 (PARAM  (13  3)  ,AKSL2)  , (PARAM  (1  34),  AA1)  , (PARAM  (135)  ,AA2)  , 

1 (PARAM  (1  3 6)  ,CCR)  , (PARAM  (1  37)  ,CFCR)  , (PARAM  (138)  ,AP)  , 

1 (PARAM  (139)  ,EP1 ),  (PARAM  (140)  , EP2)  , 

1 (PARAM  (169)  , SN  T)  , (PARAM(170)  ,SNS0)  , (PARAM(171)  ,SNS1)  , 

1 (PARAM  (182)  ,SII  (1)  ) 

EQUIVALENCE  (PARAM  (202)  ,APF  (1  ) ) , (PARAM  (204)  , APR  (1)  ) , 

1 (PARAM  (206)  , MUS  (1)  ) 


9 


9 


900 
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1080 
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EQUIVALENCE  (AKLR  ,PARA  M (21  2)  ) , ( KOT  F , P AR  AM  (213)  ) , (KOTR,  P ARAM  (214)  ) 
EQUIVALENCE  1480 

1 (PARAM(223)  ,CR1C)  , (PARAM  (224)  , CB1T)  , (PARAM  (225)  ,CR2C)  , 1490 

1 (PARAM(226)  ,CR2T)  , (PARAM  (227)  ,CR3C)  , (PARAM  (228)  ,CR3T)  , 1500 

1 (PARAM(229)  ,CR4C)  , (PARAM  (230)  ,CR4T)  , (PARAM  (231)  ,AH1)  , 1510 

1 (PARAM  (232)  ,AH2)  , (PARAN  (233)  ,ALAMBD)  , 1520 

1 (PARAM  (242)  ,AKCF)  , (PARAM  (243)  , AKCR)  , (PARAM  (244)  ,AKSR)  1530 

EQUIVALENCE  (PARAM  (236)  ,PS01)  , (PARAM  (237)  ,PS02) 

EQUIVALENCE  (P  AR  AM  (2  4 5)  , RB  ( 1)  ) , (PA  R AM  (2  49 ) , TFK  ( 1)  ) , 1540 

1 (PARAM  (252)  ,TRK  (1  ) ) , 1550 

1 (PARAM  (255)  ,OFC0)  , (PARAM  (256)  ,OFC1)  , (PARAM  (257)  ,OFC2)  , 1560 

1 (PARAM  (258)  ,OFC3)  , (PARAM  (262)  ,0RC3)  , 1570 

1 (PARAM  (259)  ,ORCO)  , (PARAM  (26  0)  ,ORC1)  , (PARAM  (261)  ,ORC2)  1580 

EQUIVALENCE  (P  AR  AM  ( 263)  , CPO  F)  , (F  AR  AM  (26  4)  ,CP  1 F)  , 1590 

1 (PARAM  (265)  ,CP2F)  , (PARAM  (266)  ,CP0R)  , (PARAM  (267)  ,CP1R)  , 1600 

1 (PARAM  (268)  ,CP2R)  , (PARAM  (2  6 9)  ,CR0F)  , (PARAM  (270)  ,CR1F)  , 1610 

1 (PARAM  (271)  , CR2  F)  , (PARAM  (272)  ,CR0R)  , (PARAM  (273)  ,CR  1R)  , 1620 

1 (PARAM  (274)  ,CR2R)  1630 

EQUIVALENCE  (RB  ( 1 ) , R B 1 ) , (R  B (2  ) , RB2 ) 1640 

EQUIVALENCE  (RB  ( 3)  , RB 3 ) , (RB  (4  ) , RB4  ) 1650 

EQUIVALENCE  (TFK  (1)  , AFK  1)  , (TRK  ( 1)  , ARK  1)  1660 

EQUIVALENCE  (TF K(2)  , AF  K2)  , (TRK  (2)  , ARK2)  1670 

EQUIVALENCE  (TF K ( 3)  , AF K 3)  , (TR  K (3)  , A RK3  ) 1680 

EQUIVALENCE  1690 

1 (PARAM  (284)  , HFC)  , (PARAM  (285)  ,HRC)  , 1700 

1 (PARAM(290)  , ROT)  , (PARAM  (291)  , RAO)  , (PARAH(292)  ,RA1)  , 1710 

1 (PAR  AM  (293)  ,RA2)  , (PARAM  (294)  ,RA3)  , (PARAM  (295)  ,RA4)  1720 

EQUIVALENCE  (P A R A M (35  1 ) , IOUT  ( 1)  ) 

EQUIVALENCE  (R  W Z I ( 1 ) , R WZ1 ) , (ZI  (1)  ,Z1)  , (FRI  (1)  , FRI)  , ( AKT  1(1)  ,AKT1)  , 1840 

1 (RWZI  (2)  ,RWZ2)  , (ZI  (2)  ,Z2)  , (FRI  (2)  ,FR2)  , (AKTI  (2)  ,AKT2)  , 1850 

1 (RWZI  (3)  ,RWZ'3)  , (ZI  (3)  ,Z3)  , (FRI  (3)  ,FR3)  , (AKTI  (3)  ,AKT3)  , 1860 

1 (RWZI  (4)  ,RWZ4)  , (ZI  (4)  ,Z4)  , (FRI  (4)  ,FR4)  , (AKTI  (4)  ,AKT4)  , 1870 

1 (UI  (1)  ,U1)  , (VI  (1)  ,V1)  , (SI(1),  Wl),  (UGI(1)  ,UG1)  , (VGI  (1)  , VG1)  , 1880 

1 (UI  (2)  ,U2)  , (VI  (2)  ,12)  , (HI  (2)  ,K2)  , (UGI  (2)  , UG2)  , (VGI  (2)  , VG2)  , 1 890 

1 (UI  (3)  , U 3)  , (VI  (3)  ,V3)  , (HI  (3)  , W3)  , (UGI  (3)  , UG3)  , (VGI  (3)  , V G3)  , 1900 

1 (UI  (4)  , U4)  , (VI  (4)  , V 4 ) , (WI  (4)  , W 4)  , (UGI  (4)  , UG4)  , (VGI  (4)  , VG4)  , 1910 

1 (SIN  PS  I (1)  f SINPS1 ) , (PSII  (1)  ,PSI  1)  , (COSPSI  (1)  , COS  PS  1)  , (UGIP  ( 1)  , UG1P  1 92  0 

1)  , (PHICGI  ( 1)  , PHICG1 ) , (CVI  (1)  ,CV1)  , (ABI  (1)  #AB1)  , (BET  A I (1  ) , BETA1 ) , 1930 

1 (SINPSI  (2)  f SINPS2)  , (PSII  (2)  ,PSI2)  , (COSPSI  (2)  ,COSPS2j  , (UGIP  (2)  ,UG2P  1 94  0 

1)  , (PHICGI  (2)  ,PHICG2)  , (CVI  (2)  ,CV2)  , (ABI  (2)  ,AB2)  , (BET  A I (2)  , BETA2)  , 19  50 

1 (SINPSI  (3)  , SINPS3)  , (PSII  (3)  ,PSI3)  # (COSPSI  (3)  ,COSPS3)  , (UGIP  (3)  , UG3P  1960 

1),  (P  HICGI  (3)  , PHICG3  ) , (CVI  (3),CV3)  , (ABI  (3)  ,AB  3)  , (£ETAI(3)  r B E TA  3 ) , 1970 

1 (SINPSI  (4)  ,SINPS4)  , (PSII  (4)  ,PSI4)  , (COSPSI  (4)  , COS  PS 4)  , (UGIP  ( 4)  , UG4P  1980 

1),  (PHICGI  (4)  , PHICG4  ) , (CVI(4),CV4)  , ( ABI  { 4)  ,AB4)  , (BETAI  (4)  , BETA  4)  1990 

EQUIVALENCE  (AMUI  (1  ) ,AMU1)  , (S  NI  (1)  ,SN1)  , ( FMI  ( 1 ) , RM  1 ) , (G BI  ( 1 ) , GB 1 ) , 2000 

1 (AMUI  (2)  , AKU2)  , (SNI  (2)  ,SN2)  , (RHI  (2)  , RM2)  , (G  El  (2)  ,GB2)  , 2010 

1 (AMUI  (3)  , AMU3)  , (SNI  (3)  , SN  3)  , (RMI  (3)  ,RM3)  , (GBI  (3)  ,GB3)  , 2020 

1 (AMUI  (4)  ,AMU4)  , (SNI  (4)  ,SN4)  , (RMI  (4)  ,RM4)  , (GBI  (4)  ,GB4)  , 2030 

1 (FRI BR  (1)  ,FR1BR)  , (ALFI  (1)  , ALF  1)  , (BETIP  ( 1)  , BET  IP)  , (BETIBR  (1)  ,BET1BR  2040 

1)  , (SLIP  I (1)  , SLI PI  ) , (AM  II  (1)  f A M 1 1)  , (AM2I  (1)  ,AM21)  , (UOI  ( 1 ) , UO  1)  , 2 05  0 

1 (FRIBR  (2)  , FR2BR)  , (ALFI  (2)  , ALF2)  , (BETIP  (2)  ,BET2P)  , (BETIBR  (2)  ,BET2BR  2 060 

1),  (SLIP  I (2)  , SLI  P2 ) , (AM  II  (2)  , A M 1 2)  , ( AM  21  (2)  , AM  22)  , ( UOI  ( 2)  , U02)  , 2 070 

1 (FRIBR  (3)  , FR3BR)  , (ALFI  (3)  , ALF  3)  , (BETIP  (3)  ,BET3P)  , (BETIBR  (3)  , B ET  3 B R 2 080 

1)  , (SLI  PI  (3)  , SLIP3)  v-  (AN  II  (3)  , AMI  3)  , (AM2I  (3)  ,AM23)  , (UOI  (3)  ,UQ3)  , 2 090 

1 (FRIBR  (4)  , FH4BR)  , (A  LFI  (4)  , A LF  4)  , (BETIP  (4)  ,BET4P)  , (BETIBR  (4)  ,BET4BR  2100 

1),  (SLIP  I (4)  , SLIP4)  , (A  Mil  (4)  ,AM14)  , (AM2I  (4),AM24)  ,(U0l(4),U0  4),  2110 

1 (U1I  (1)  ,01  1)  , (BAMI  (1)  ,EAN1)  , (S 1 1 ( 1 ) ,SI1)  , (SAMI  (1)  , SAM  1 ) , (FI  (1 ) , FI)  2120 
1,  2130 

1 (U1I  (2)  , U12)  , (BAMI  (2)  ,EAM2)  , (SI I (2)  ,SI2)  , (SAMI  (2)  ,SAM2)  r (FI  (2)  , F2)  2 140 

1,  2150 
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1 (Oil  (3) 

i 

, U1  3) 

, (BAMI  (3) 

, BAM3) 

, (SII 

(3) 

,SI 

3), 

1 r 

1 (U  11  (4) 

,U14) 

, (BAMI  (4) 

, B A M4 ) 

, ( 

SII 

(4) 

,SI 

4)  , 

EQUI VAL 

ENCE 

(FXUI  (1)  , 

FXUI)  , 

(F 

YU  I 

(D 

,fy 

U1) 

1 

(FXUI  (2)  , 

FXU2)  , 

(F 

YU  I 

(2) 

,fy 

U 2) 

1 

(FXUI  (3)  , 

FXU3)  , 

(F 

YUI 

(3) 

, FYU3) 

1 

(FXUI  (4)  , 

FXU4)  , 

(F 

YU  I 

(4) 

,fy 

U 4) 

{SAMI  (3)  ,SAM3)  , (FI  (3)  , F3) 


(SAMI  (4)  , SAM4)  , (FI  (4)  , F4) 
, (GI  (1)  ,G1)  , (FCI  (1)  ,FC1)  , 
(FCI  (2)  ,FC2)  , 
(FCI ( 3 ) 


(GI  (2)  ,G2) 
(GI  (3)  ,G3) 
(GI  (4)  ,G4) 


FC3) 
(FCI (4) , F C 4 ) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

I 

EQUIVALENCE 


(DL3S,DLIS  (3)  ) 


, DLSUS  2) 
,DLSDS4) 


1 (FCIMAX  (1)  , FCIMAX)  , (FSI  (1)  , FS  1)  , 

1 (FCIMAX  (2)  ,FC2M  AX)  , (FSI  (2)  rFS2)  , 

1 (FCIMAX  (3)  , FC3M  AX ) , (FS  I (3)  , FS  3)  , 

1 (FCIMAX  (4)  , FC4M  A X)  , (FSI  (4)  , FS4) 

EQUIVALENCE  (ZIP(1)  ,Z1P),  (P  HI  I ( 1)  , PH1 1 ) , 

1 (ZIP  (2)  ,Z2P)  , (PHII  (2)  , PHI2)  , 

1 (ZIP  (3)  ,Z3E)  , (PHII  (3)  ,PHI3)  , 

1 (ZIP  (4)  , Z4P)  , (PHII  (4)  , PHI4) 

(DL  IS,  DL IS  ( 1 ) ) , (D  L2  S ,D  LIS  (2  ) ) 

1 , (DL4S  ,DLIS  (4)  ) 

(PHIFD  , DEL2DT)  , (FHIF,DEL2) 

(PHIRD, EEL4DT)  , ( F H I R , DEL 4) 

(DLSUSI  (1)  ,DLSUS1  ) , (DLSUSI  (2) 

1 (DLSUSI  (3)  ,BLSUS3)  , (DLSUSI  (4) 

(FZUI  (1 ) , FZU  1 ) , (FZU  I (2)  ,FZU2)  , 

1 (FZUI(3)  ,FZU3)  , (FZUI  (4)  ,FZU4) 

EQUIVALENCE  (VARZRP , VERZRP) 

EQUIVALENCE  (FEE1  , FEE  ( 1)  ) , ( FEE2  , FEE  (2)  ) 

REAL  *4  KOTF, KOTR 
RE AL*4  FEE (2) 

DATA  RAD/0. 1745329E-1/ 

DATA  MPHIPS/17. 6/ 

REAL  *4  MPHIPS 

M UP  ,MUS  (2)  ,RE  (4)  , TFK  (3)  , TRK  ( 3)  , SI  1(4)  , APF  (2)  , APE  (2) 

L AFC , LA  FT # LA RC  , IA RT 
A KTI  (4) 

ATRACK  (2000) 

ITRAA  (5  0)  ,ITRNA  (5  0)  ,1  TRI  A (5  0)  , D ACPLA  (48)  , ADCPLA  (4  8) 
NAMDAC  (48)  , NAMADC  (4  8)  , ID  AC  (48)  , IADC  (48)  , A DCN  UM,  DACNUM 


LFRI 


LFRI 


RE AL*4 
RE AL*  4 
REAL*4 
REAL*4 
IN  TEGER  *2 
INTEGER*  2 

REAL*4  IOUT(48),IN,  SC  A LA  C (48)  , SCA  LDC  (48) 

REAL *4  DLSUSI  (4)  , PCGI  (4)  , S N FS  IP  (4 ) 

REAL*4  B VALUE  (2) 

IN  TEGER  * 2 RTSW  ,RBSW  , LDTSH  ,OPEN 

*+*  + * + ***  + ***  + + + + * + *+*  + + + ****** ****  + ******  + +*** *« «**#**«** 

USE  A/D  READ  VALUES 
CHECK  FOR  A/D  OVER  RANGE 

4c*  *************************  ********  ******************************* 


I X)  10100  1=1  ,ADCNUM 
SADCO  = IN  (I) 

IN  (I)  = AMAX1  (-.9998,  (AMIN1  (.9998,  I N (I)  ) ) ) 
IF  (SADCO .EQ . IN  (I)  ) GC  TO  10105 
IADCK  = IADCK+1 
IF  (IADCK.GE. 10)  IADCK  = 10 
IERADC  (IADCK)  = I 
TERADC (IADCK)  = TIME 
10105  CONTINUE 

BVALUE  (ADCPLA  (I)  ) =IN  (I)  *SCALAC  (I) 

10100  CONTINUE 
IH  SW= 1 

TIM  E=FLO  AT (JJTIME) *DT 
JJTIME=JJTIME+1 
ENTRY  SBPG22 


2160 
2170 
2180 
2 190 
2200 
2210 
2220 
2230 
2240 
2250 
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2280 
2290 
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c 


c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IS  W=  1 


5 


IF  (TIME.GT.O.)  GO  TO  6 
DO  5 K=1  ,4 
FSI(K)  = 0. 

ALTQ  (K)  = 0. 

ZIMX  (K)  = 100. 

CONTINUE 
PH ID  MX  = 0. 

CONVRT  = 1./MPHIPS 

AERODYN AHIC  INITIALIZATION  VARIABLES 
SFXS  =0. 

SFYS  =0. 

SFZS  =0. 

SNTHES=0 . 

SN  P HIS  =0. 

SNPSIS=0. 

DUAL  TIRE  INITIALIZATION  VARIABLES 
ALTQ5=0. 0 
ALTQ6=0. 0 
FSI3=0 . 0 


FS 14=0 . 0 
FSI5=0 . 0 


FS 16=0 . 0 


FXU  5=0 . 0 
FXU6=0. 0 
FYU5=0. 0 
FY  U6=0 . 0 


SNPHIF=0 .0 
SNPHIR=0 .0 

SFSF  = PARAM  (32) /10000. 

NBMP=PAR  AM  (277)  +0.5 
STOPPING  DISTANCE  INITIALIZATION 
AN  UM  = 0 . 0 
ANUM  ET  = 0 . 0 
6 CONTINUE 

FUNCTION:  PSIFNT-COEFFICIENTS  TO  A POLYNOMIAL  FIT  OF  FRONT  WHEEL  C 

TOE-IN  AS  A FUNCTION  OF  SUSPENSION  DEFLECTION  (DELI)  C 

C 

INPUTS:  PSIFNT- (DEGR EES/INCH)  C 

DELI-  (INCHES) 

** ******  ********************************************************* 


INCREASING  THE  SPRUNG  MASS  CVER  THAT  FOR  WHICH  THE  STATIC  WHEEL 
DEFLECTION  IS  MEASURED,  YIELDS  A DELFIN  AND  A DELRIN  WHICH 
IS  A NEGATIVE  NUMBER 

**********  *********************  **********  ************************ 


DELFIN  AND  DELRIN  REPRESENT  A CHANGE  IN  STATIC  DISPLACEMENT 
OF  THE  FRONT  AND  REAR  WHEELS  DUE  TO  LOAD  CONFIGURATIONS 
OUTPUTS:  POLY- (DEGREES) 

DLIS  (1=1, 2, 3, 4)  IS  THE  SUSPENSION  DEFLECTION  RELATIVE 
TO  THE  UNLOADED  POSITION  FOR  WHEEL  I 
SUSPENSION  TIME  DELAY  CCMPENSATION 
DEL  1=D£L1  + PARAM  (3 4 1 ) *DEL  1 D T 
DEL2  = DEL2+PARAM  (342) *DEL2DT 
EEL3=DEL3+PARAM  (343)*DEL3DT 
PHIR=PHIR  + PARAM  (344) ♦PHIRD 
DLIS  = DELI  + DELFIN 
DL2S  = DEL  2 ♦ DELFIN 
DL3S  = DEL3  + DELRIN 
DL4S  = DEL4  + DELRIN 


C 

C 
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DLSUS1=DL1S 
DLSUS2  = DL2S 
DLSU  S3  = DL3  S 
DLSUS4  = DL4S 
IAX  = 0 SOLID  FRONT 

= 1 INDEPENDENT 


AND  REAR  SUSPENSIONS 
FRONT  AND  SOLID  REAR 


SUSPENSIONS 


= 2 INDEPENDENT  FRONT 
IF  (IAX.  EQ.  0)  DL1S  = DL1S  ♦ 
IF(IAX.EQ.O)  DL2S  = DELI  + 
IF(IAX.LE.I)  DL3S  = CL3S 
IF  (I  AX . L E.  1 ) DL4S  = DEL3  ♦ 
SUSPENSION  DEFLECTIONS  FOR 
IF (IAX. EQ. 0 ) DLSUS 1 = 

IF  (IAX. EQ. 0 ) DLSUS2  = 


AND  REAR  SUSPENSIONS 
T FO  2*P  HIF 

DELFIN  - TF02*PHIF 
♦ TR02+PHIR 
DELRIN  - TRO  2*PHIR 
SPRING  FORCES 
CLSUS1  + TSF*PHIF/2. 

DELI  + DELFIN  - TSF*PHIF/2. 


IF  (IAX.  LE.  1)  DLSUS3=DLSUS3+TS0  2*PHIR 
IF  (I AX . LE.  1 ) DLSUS4  = EEL3  ♦ DELRIN  -TS02*PHIR 
INDEPENDENT  FRONT  & SOLID  REAR 
PS 1 1 -DELFW 1 ♦ (POLY  (DL1 S , PSIFNT) ) *RAD*EPSKl 
PS  I2  = D EL  FW  2-  (POLY  (D  L2S  , PSI F NT ) ) ♦RAD* EPS K2 
PSI3S  = AK  RS  *PH I R 
1 + AKL  R * FS  I (3) 

PSI4S  = AKRS  *PHTR 
1 + AKLR * FS I (4) 

FUNCTION:  P HI FNT- COEFFICIENTS  TO  A POLYNOMIAL  FIT  OF  FRONT  WHEEL 

CAMBER  AS  A FUNCTION  OF  SUSPENSION  DEFLECTION  (DELI) 

INPUTS:  PHIFNT-  (DEGREES/INCH) 

DELI-  (INCHES) 


OUTPUTS:  POLY-  (DEGREES) 


PHIPY1 
PHIP Y2 
PHISA1 
PHISA2 
PH  1 1 = 


= PHIPY1  - 
=-P  HIP Y2  ♦ 
PHIPY1  ♦ SIG! 


1 + KOTF*  CT  M ( 1 ) 
PHI2  =-P  HIP  Y 2 + 
1 + KOTF*OTM  (2) 
PHI3=PHIR 
PHI4=PHI R 


PHIFNT) ) * 

RAC 

PHIFNT) ) * 

RAC 

PHIFNT  ( 1) 

♦RAD 

+ YHS  1 

PHIFNT  { 1) 

♦RAD 

♦ YHS  2 

( 1 . , FS  1 ) * 

FEE1 

- PHISA1* 

(1 . -COS  (PSII  (1) 

(1 . ,FS2)  * 

FEE2 

-PHISA2  * (1 

. -COS  (PSII  (2)  ) ) 

FUNCTION: 


INPUTS: 


OUTPUT: 


THEFNT-CASTER  AS  A FUNCTION  OF  SUSPENSION 
DEFLECTION  (DELI) 

THEFNT  (DEGREES/INCH) 

DELI-  (INCHES) 

POLY-  (DEGREES) 


TH S 1 = (POLY  (DL1S , THEFNT) ) *RAE  + THE1 
THS2= (POLY (DL2S, THEFNT) ) * R AL+ THE2 

FUNCTION:  PSIRR-COEFFICIENTS  TC  A POLYNOMIAL  FIT  OF  REAR  WHEEL 

TOE-IN  AS  A FUNCTION  OF  SUSPENSION  DEFLECTION  (DELI) 

INPUTS:  PSIRR-  (DEGREES/INCH) 

DELI-  (INCHES  ) 


C 

C 

C 

C 

C 


C 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 
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C 

OUTPUTS: 

POLY-  (DEGREES) 

C 

3690 

C 

C 

3700 

c 

C 

3710 

c 

FUNCTION : 

PHIRR-COEFFICIENTS  TO  A 

POLYNOMIAL 

FIT  OF  REAR 

WHEEL 

C 

3720 

c 

CAMBER  AS  A FUNCTION  OF 

SUSPENSION 

DEFLECTION 

(DELI) 

C 

3730 

c 

C 

3740 

c 

INPUTS  : 

PHIRR-  (DEGREES/INCH) 

C 

3750 

c 

DELI-  (INCHES) 

c 

3760 

c 

c 

3770 

c 

OUTPUTS: 

POLY- (DEGREES) 

c 

3780 

c 

c 

3790 

c 

INDEPENDENT  REAR 

IF  (IAX. 

LE.  1)  GO  TO  7843 

3800 

PS  13  S = 

POLY  (DL3S,PSIRP)*RAD 

3810 

1 + AKLR*FSI  (3) 

PSI4S  = 

-POLY (DL4S, PSI RR) * RAD 

3820 

1 + AKLR  * FS  I ( 4) 

PH  1 3 -POLY  (DL3S,PHIRR)*RAD  3830 

1 ♦ KOTR*OTM  (3) 


PHI4=-POLY  (DL4S  , PHIRR)  *RAD  3840 

1 + KO  TR *OT M (4) 

7843  CONTINUE  3850 

IF  (IAX.  NE.  0.  ) GO  TO  7844  3860 

C SOLID  FRONT 

PSI1  = DELFW1-AKFS*PHIF  + EPSK1  3870 

PSI2  = D ELFW2- A KFS  * PHIF  + EPSK2  3880 

PH 1 1 = P HIF  + FEE  1 3890 

PH I 2 = FHIF+FEE2  3900 

7844  CONTINUE  3910 

IF  (IDULTR.  EQ.  1)  ALTQ  (3)  = ALTQ(3)/2.  4630 

IF  (IDULTR.  EQ.  1)  A LT  Q {4 ) = ALTQ(4)/2.  4640 

PS 1 3 = PSI3S+  ALTQ  ( 3) *AKSR  4650 

PSI4  = PSI4S ♦ ALTQ(4)*AKSR  4660 

PHS1=YHS1+PHI1  3920 

PHS2=YHS2+PHI2  3930 

C CALCULATION  OF  FRONT  EUMP  STOP  FORCES  3940 

FBS  1 = XINT  (DLSUS1  ,DELSF1  ,FDLSF1  ,NDELF1  ) 3950 

FB  SI  = FBS1  - AKF 1 * DLSUS 1 3960 

FBS2  = XINT (DLSUS2,DELSF2,FDLSF2,NDELF2)  3970 

FBS2  = FES2  - AKF2*DISUS2  3980 

C CALCULATION  OF  REAR  EUMP  STCP  FORCES  3990 

FBS  3 = XINT (DLSUS3,DELSR3,FDLSR3,NDELR3)  4000 

FBS3  = FES 3 - AKR3*DLSUS3  4010 

FBS 4 = XINT (DLSUS4,DELSR4,FDLSR4,NDELR4)  4020 

FBS4  = FBS4  - AKR4*DLSUS4  4030 


C CALCULATION  OF  SHOCK  AESCRBER  FORCES 

FS  AR  F=  XINT (ZETDRF  ,ZDB  PRF , SAFPF , NRF) 

FSARF=FS  ARF- AKSRF*Z  ETDRF 

FSAL  F=XINT (ZETDLF ,ZDBPIF, SAFLF , NLF ) 

FSALF=FSALF-AKSLF*ZFTELF 

FS ARR  = XINT  (ZETDRR  »ZDBPRR, SAFER , NR R) 

FSABR=FSARR-AKS RR*Z  ETDER 

FSAL  R=  XINT  (ZETDLR  ,ZDBPIR , S AFL  F , NLR) 

FSALR=FSALR-AKSLR*ZETDIR 

NNN=PARAM(198)  / (PARAM  (75)  *U  ) +0.  5 4040 

C*****  COOD  TRANSFORMATION  ******* 

CTH=COS  (THE) 

CP  H=CO  S (PHI) 

CPS=COS  (PSI) 
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n n noon 


STH=SIN  (THE) 

SPS=  SI N (PSI) 

SP H=  SIN  (PHI) 

CPHSPS=CPH*SPS 
SPHCPS=SFH*CPS 
CPHCPS=CPH*CPS 
' SP5SPH=S  ES*S  PH 
T ( 1 r 1)  =CPS*CTH 
T (2, 1)  =SPS*CTH 
T (3,  1)  =-STH 

T (1 , 2) =SPHCPS*STH-CPHSPS 
T (2, 2)  =CPHCPS+SPSSPH*STH 
T (3,2)  =SPH^CTH 
T ( 1 , 3)  =SPSSPH+CPHCPS*STH 
T (2, 3)  =CPHSPS*STH-SPHCES 
T (3,  3)  =CTH*CPH 

****************************************************************** 
*****  COSINE  OF  ALPHA  BETA  AND  GAMMA  FOR  SUBS  R, C, AN DH****» 

DO  16  K = 1,4 

SIN  PSI  (K ) = S I N (PSII  (K)  ) 

COSPSI  (K)  =COS  (PSII  (K)  ) 

SINPHI  (K ) = S I N (P  HI  I (K)  ) 

COSPHI  (K)  = COS  (PHII  (K)  ) 

16  CONTINUE 

***  * *C0  s ALPHA  Y W I=CO  SABG  (1,1)  ,COS  BETA  YWI  = COSABG  (2,1) 

♦♦♦  COS  GAMMA  YWI  = COS  ABG  (3 , 1) 

DO  2 2 J=1,3 
DO  23  K = 1 , 4 

COSABG  (J,K)  = -T  (J,  1)  *S I NPS I (K)  +T  (J,  2)  *COSPHI  (K)  ♦COSPSI  (K) 

1 +T  (J,  3)*SINPHI  (K)  *COSPSI  (K) 

23  CONTINUE 
22  CONTINUE 

DO  26  1=1,4 

C2  BETA  = COSABG  (2 ,1)  *CCSABG  (2  ,1 ) 

DENI  = SQRT  (C0SABG(1,  I)  ♦COSABG  (1,1)  + C2BETA) 

COS  AC  (I)  = COSABG  (2, IJ/DEN1 

CO  SBC  (I)  = -COSABG  ( 1 ,1) /DENI 

COSAR(I)  = -COSABG  (1,  I)  ♦COSABG  (3, I) /DEN  1 

COSBR(I)  = -COSABG  (3,1)  ♦COSABG  (2,1) /DENI 

COSGR(I)  = DENI 

SNPSIP  (I)  = ~(T  (1,1)*CCSABG  (1,1)  + T (2 , 1)  ♦COSABG  (2,1)  ) / (DENl*CTH) 
PSIP  (I)  = ARSIN  (SNPSIP  (I)  ) 

IF  (PARAM  (276)  .LT.  0.  ) PSIP  (I)  = PSII  (I) 

PCGI  (I)  = ARSIN  (COSABG  (3,1)  ) 

IF  (I.GT.  2)  GO  TO  27 

PHICGI  (I)  = PCGI  (I)  ♦ AKCF*  ESI  (I) 

IF(IAX.EQ.O)  PHICGI  (I)  = PHICGI  (I)  ♦ FEE  (I) 

GO  TO  26 
27  CONTINUE 

PHICGI  (I)  = PCGI  (I)  + A KCR * FS  I (I) 

IF  (PARAM  (276)  .EQ.  1.  ) PHICGI  (I ) =0. 

IF  (PARAM  (276)  . EQ.  9.  ) PFICGI(I)  =0. 

26  CONTINUE 

DO  24  J=  1, 3 
DO  25  K= 1,4 

CO  ABGH  (J,K)  =T  (1  , J)  ♦COSAR  (K)  +T  (2  ,J)  *COSB  R ( K)  +T  (3,  J)  ♦COSGR(K) 

25  CONTINUE 

24  CONTINUE 

**  ♦**♦**>)>***♦***  ****************************************************** 
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INTEGRATION  OF  DERIVATIVES  DONE  NEXT 


6390 

6360 


DO  15  1=1,3 

XYZDOT  (I)=U*T  (I,  1)  + V*T  (I  .,2)  + W*T  (1,3) 

15  CONTINUE 

Z=Z* XYZDOT  (3)  *DT 
X=X 
Y=Y 

IF  (PARAM  (218)  .GT.O.  5)  GO  TO  8999 
X=X  ♦ XY  Z DOT  (1 ) *DT 
Y=Y*XYZDCT  (2)  *DT 

8999  CONTINUE 

****************************************************************„****** 

*****  STOPPING  DISTANCE  COMPUTATIONS  ********************************** 

IF  (TIME. IT. CGAM)  GO  TC  9000 
ANUMDT  = SQRT(U**2  + V**2)  6220 

ANUH=ANUM+ANUMDT*DT 

9000  CONTINUE 

**********************************  ************************************* 

*******  z COMPUTATION  ******** 

100  TH1  = Z+T  (3,  1)  *A+T  (3,  3)  *ZF 
TM2=T  (3,2)  *TF02 

Z1  = TM1+TM2+T  (3,3)  *DEI1  -DELX(1) 

IF  (I AX.  EQ.0)  Z1=Z1  + T (3,3)  *TF02*EHIF 
Z2=TM  1 - TM2  + T (3,3)  *D E L2-DE LX  (2) 

IF  (I  AX.  EQ.  0)  Z2=  Z 2 + T (3,3)*  { -T FO 2*P HIF- DEL  2* DEL  1 ) 

TM  1=Z-T  (3,  1)  *B*T  (3,  3)  *ZR 
TM2=T  (3,2)  *TR02 

Z3=TM1*TM2*T  (3,3)  *D E L3 -DELX  (3) 

IF  (IAX.LE.  1)  Z3  = Z3  + T (3,3)  *TR02*PHI  R 
Z4=TM1-TM2*T  (3,3)  *D  EL4-DELX  (4) 

IF  (IAX.LE.  1)  Z4=Z4*T  (3,3)*  (-T R02*PHIR-DEL4+DEL3) 
****************************************************************** 
CALCULATION  OF  TIRE  ROLLING  RADIUS 
DO  110  K=1,4 
H (K)  =-ZI  (K)  /CO SGR  (K) 

IF  (PARAM  (276)  . EQ.  2.  ) 8 (K)  = -ZI(K) 

IF  (PARAM  (276)  . EQ.  5.  ) H (K)  = -ZI  (K) 

IF(PARAM  (276)  .EQ.9.)  H (K)  = -ZI(K) 

IF  (H  (K)  . GT.  BN)  H (K)  = RW 
110  CONTINUE 

*********************************************************************** 

WHEEL  SPIN  RATE  X ROLLING  RADIUS 
SPI NH 1 = ARPS  (1)  * H ( 1 ) 

SPIN  H2  =ARP  S (2)  *H  (2) 

C ********************************************************************** 

c 

C*****  COMPUTATION  OF  U,V,  ANC  W EOF  VARIOUS  AXLES****** 

C*******  THIS  SECTION  COMPUTES  THE  U'S,V'S,AND  W*S  FOR  ALL  AXLE  CONFIGURATIONS 

TM1=  U+ZF*Q 

TM  2=TFO  2*R 

TM1 1=U+ZF*Q 

TM  22=TRO  2*  R 

VARZFP=V+A*R-ZF*P 

VARZRP=V-B*R-ZR*P 

PPHIR=P+  PHIR  D 

PPHIF=P*PHIFD 

WAQ  = W“ A *Q 

WBQ=W+B*Q 

IF(IAX-I)  4,55,56 
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C ***  * SOLID  FRONT  AXLE  EQUATIONS  (A)  ****** 

4 Ul=TM 1-TM2+Q*  (TFO  2*  PHIF  + DE  L 1) 

U2  = TM1  + TM2«-Q*  (-  TF02  * P HI  F + DE  Li  ) 

V1  = VARZFP-DEL1  * P-  (TFC2*PH  IF  + H ( 1)  *COA  BGH  (3 , 1 ) ) * PPHIF 
V2=V  ARZFP- DELI  * P-  (-1F02  * PHI  F*  H (2)  *CO  ABGH  (3 , 2)  ) *PPHIF 
W1=W AQ+DEL1 DT-  ( - T FO  2 - H (1)  *CCA  EGH  (2  #1)  ) * PP  HIF 
' W2-WAQ  + DEL1DT-  (TF02  - H (2)  *CO  AB  GH  (2,  2)  ) *PPHIF 

C****  SOLID  REAR  EQUATIONS  (B)  ***** 

55  U3  = TM1  1-TM22+Q*  (TR0  2*PHIR*DEL3) 

U4  = TM  1 1+TM22+Q*  (- TR02*  PHI  R+ DE  1 3) 

V3=VARZRP-DEL3  * P-  (T R02 *PH IR  ♦ H (3 ) * COA  BGH  (3 , 3)  ) * PPH I R 
V4  = VARZRP-DEL3  *P-  (-TR02+PHI  E*  H (4)  *CO  ABGH  ( 3 , 4)  ) *PP H IR 
W3  = WBQ  + DEL3DT-  (-TR02-H  (3)  *COA  EG  H (2  ,3)  ) * PP  HI  R 
W4  = W BQ  + DEL3DT-  (TR02-H  (4)  *COABGH  (2,  3)  ) *PPHIR 
IF(IAX.EQ.O)  GO  TO  7 

C****  INDPENDENT  FRONT  AXLE  EQUATIONS  (C)  ******** 

56  U1  = TM1-TM2  ♦ Q*DEL 1 
U2=TM 1+TM2+Q*DEL2 

V1  = VARZFP-  ( DEL  1 + H (1)  *CC ABGH  (3, 1))  *P 
V2  = V ARZFP-  (DEL2+H  (2)  *COABGH  (3 ,2) ) *P 
W1=WAQ+DEL1DT+  (TF02  + H (1)  *CO ABGH  (2,  1)  ) *P 
W2  = WAQ+DEL2DT-  (TF02-H  (2)  *CO  AB  GH  {2,  2)  ) *P 
IF ( I AX  « £Q.  1 ) GO  TO  7 

C****  INDEPENDENT  REAR  AXLE  EQUATIONS  (D)  ******* 

U3  = TM1  1 -TM22+Q*DEL3 
U4  = TM 1 1 *TM22+Q*DEL4 

V3  = VARZRP-  (DEL 3 * b (3)  *CCA  EG  H (3,3)  ) *P 

V4=  V AR  ZR  P-  (DEL4  + H (4)*CCABGH  (3 ,4) ) *P 
W3=WBQ+DEL3DT+  (TR02+H  (3)  *C0  ABGH  (2,3)  ) *P 
W4  = W BQ+  D EL4  DT-  (T  R02  - H ( 4)  *CO  AB  GH  (2,  4)  ) *P 
7 CONTINUE 

c******  COSINE  OF  THETA  XGI  SIN  THETA  XGI  BETA  I PSII******* 
COTHXG  = T (3 , 3)  /SQRT  (C  PH  *CPH  + SPH*  SPH  *STH*ST  H) 
SITHXG=COTHXG*STH/T  (3,3) 

DO  30  K = 1 , 4 

VGI  (K)  = VI  (K)  *CPH - WI  ( K)  *SPH 

UGI  (K)  = UI  (K)  *COTHXG+WI  (K)  *SITHXG 

IF  (P  ARAM  (276)  .EQ.  3.  ) UGI  (K)  = UI  (K)  + THE*HI  (K) 

IF  (PARAM  (276).  EQ.  9.  ) UGI(K)  = UI(K)  + THE*WI  (K) 

CVI  ( K)  =SQRT (UI  (K)  *UI  (K)  + VI  <K)  *VI  (K)  ) *CONV  RT 
ABI  (K)  = ABS  (UGI  (K)  ) 

UGIP  (K)  =UGI  (K)  *COS  (PSIP  (K)  ) *VGI  (K)  *SNPSIP  (K) 

BET  A I (K)  =A  TA  N (VGI  (K)  /ABI  (K)  ) - SIGN  (1  . ,UGI  (K)  ) *PSIP  (K) 

SNI  ( K)  = S NSO/SNT 

SLIPI(K)  = 1.-  ARPS  (K)  *H  (K) /UGIP  (K) 


IF  (SLIPI  (K)  . LT.  (-1.  ) .OB.SLIPI  (K).GT.  1.  ) S LIP  I (K)  =SIGN  ( 1 - , SLIPI  (K)  ) 5110 

30  CONTINUE 

C INTFUN  IS  USED  FOR  ROAD  PATCH  WITH  VARYING  COEFFICIENT  OF  FRICTION  4820 

INTFUN  = PARAM  (172)  +0. 5 4830 

IF  (INTFUN.  EQ.O)  GO  TO  3497  4840 

IF (INTFUN. NE. 1) GO  TO  3498  4850 

XI  = A*CPS  - T F02  *S  PS  + X 
X2  = A*CPS  * TF02*SPS  ♦ X 
X3=  -B*C  PS  - TR02  *S  PS  ♦ X 
X4=  -B*CPS  + TR02*SPS  + X 

TEMP=PARAM  (173)  +PARAM  (174)  4900 

TEMP=TEMP*12.0  4910 

PPPP=PARAM  (173)  *12. 0 4920 

IF (X1.GT.PPPP  . AND. XI. LE. TEMP)  SNl=SN  Sl/SNT  4930 

IF ( X 2 . GT.PPPP  . AND. X2.LE .TEMP) SN2=SNS1/SNT  4940 
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IF  (X3. GT.PPPP 
IF (X4. GT.PPPP 


ANE.X3.LE.TEMP)  SN3=SNS1/SNT 
AND. X4.LE.TEMP) SN4  = SNS1/SNT 


4950 

4960 

4970 

4980 


GO  TO  3498 


3497  CONTINUE 


YY 1 = A*SPS  + T F02*  CPS  ♦ Y 

Y2  = A*  SP S - TF02+CPS  ♦ Y 

Y 3 =-  B*  SP  S ♦ TRO  2*C  PS  «■  Y 

Y 4 = - B*  SPS  - T R02*  CPS  + Y 

IF (YY1 . LT. 0. 0) SN 1 = SN  S 1/SNT 
IF  (Y2. LT.O. 0 ) SN2=SNS1/SNT 
IF ( Y3. LT .0.0) SN3=SNS 1/SNT 


5030 

5040 

5050 

5060 

5070 


IF  (Y4. LT.O. 0) SN4=SNS 1/SNT 
3498  CONTINUE 


C****  COMPUTATION  OF  ROLLING  R AD  I US  r R ADI  AL  FORCE, AND  NORMAL  FORCE  *** 

C ***  RHZI  IS  THE  TIRE  DEFLECTION  ***** 

DO  20  K= 1 , 4 
RHZI  (K)  = RH-H  (K) 

IF  (RHZI  (K)  . LT.  ZIMX  (K)  ) ZIMX  (K)  = RWZI  (K) 

FRIP  (K)  =0. 

IF  (RHZI  (K)  .GT.O.)  FRIP  (K)  = ART  I ( K)  * RWZI  (K) 

FRIPP=0 . 

IF  (RHZI  (K)  .GT.  0.)  FRIPP=  -F  SI  (K ) *T  A N (PHICGI  ( K)  ) 

IF  ((FRIP  (K)  + FRIPP)  . LE.O.  ) FRIPP  = 0. 

FRI(K)  = FRIP  (K)  /COS  (PHICGI  (K)  ) ♦ FRIPP 

IF  (PARAB  (276)  .EQ.  4.  ) FEI  (K)  = FRIP(K) 

IF  (PARAM  (276)  .EQ.  5.  ) FRI  (K)  = FPIP(K) 

IF  (PARAM  (276)  . EQ.  9.  ) FRI  (K)  = FRIP(K) 

20  CONTINUE 

C CALCULATION  OF  SIDE  FORCE  FRICTION  COEFF  5130 

C 5140 

CALL  LFRIC  5150 

C 5160 

C CIRCUMFERENTIAL  FRICTICN  COEFF  CALCULATION  5170 

C 5180 

CALL  CFRIC  5190 

C 5200 

C 6410 

C *****  COMPUTATION  OF  TIRE  FORCES********* 

DO  4 5 K=  1,4 

IF(PARAH  (276)  .NE.7,)GO  TO  120 

FXUI  (K)  = FRI  (K)  *TH E * FC I ( K)  *COSP SI  (K)  - FSI  (K)  *SINPSI  (K) 

FYUI  (K)  = =FRI  (K)  *PHI  + FCI  (K)  *SIN  PSI  ( K)  + FSI  (K)  *COS  PSI  (K) 

FZUI  (K)  = -FRI  (K) 

GO  TO  45 
120  CONTINUE 

FRXU  (K)  = -FRI  (K)  *T  (3,1) 

FRYU  (K)  =-FR  I (K)  *T  (3,2) 

FRZU  (K)  =-FR I (K)  *T  (3,3) 

FCXU  (K)  =FCI  (K)  * (T  (1,1)  *COSAC  ( K)  +T  (2,  1)  * CO  SBC  (K)  ) 

FCYU  (K)  = FCI  (K)  * (T  (1 , 2)  *COSAC  ( K)  +T  (2  ,2)  *CCSBC  (K)  ) 

FCZU  (K)  = FCI  (K)  * (T  (1  ,3)  *COSAC  (K)  *T  (2,3)  * CO  SBC  (K)  ) 

FSXU  (K)  = FSI  (K)  * (-T  (1,  1)  *COSBC  (K)+T  (2,  1)  *COSAC  (K)  ) 

FS YU  (K)  =FSI  (K)  * (-T  (1 ,2)  *COSBC  (K)  + T (2,2)  *COSAC  (K)  ) 

FSZU  (K)  =FSI  (K)  * (-T  (1 , 3)  *COSEC  (K)  +T  (2,3)  *COSAC  (K)  ) 

FXUI  (K)=  FRXU  (K)  +FCXU  (K)  +FS X U ( K) 

FYUI  (K)  =FRYU  (K)  +FCYU  (K)  +FSYU  (K) 

FZUI  (K)  = FRZU  (K)  ♦ FCZ U (K)  +FSZU  (K) 

45  CONTINUE 

C ALIGNING  TORQUE  CALCULATIONS  5210 

C OVER-TURNING  MOMENT  CALCULATIONS  5220 
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c 5230 

DO  4280  K=1,2  5240 

ALTQ  (K)  =AFK1*FRI  (K)  *FSI  (K)  +SIGN  (1.  , FS  I ( K)  ) * FS  I (K)  *FSI  (K)  *AFK2  5250 

1 + SIGN  (1.  .PHICGI  (K)  )*FRI  (K)  *SQBT  (ABS  (PHICGI  (K)  ) ) *AFK3  5260 

OTM  (K)  =FRI  (K)  * (OFC1  *FSI  (K)  + OFC2*FSI  (K)  * ABS  (PH1CGI  (K)  ) 5270 

1 ♦OFC3*PHICGI (K) ) 5280 

IF (IDULTR. EQ.1)  GO  TO  4280  5290 

KK=  K*2  5300 

ALTQ  (KK)  =ARK1*FRI  (KK)  *FSI  (KK)  ♦ SIGN  (1.  ,FSI  (KK)  ) *FSI(KK)  *FSI(KK)  5310 

1 *ARK2  5320 

1 ♦ S IGN  ( 1.  .PHICGI  (KK)  ) *FRI  (KK)  *SQRT  ( ABS  (PHICGI  (KK)  ) ) *ARK3  5330 

OTM  (KK)  =FRI  (KK)  * (ORC  1 *FSI  (KK)  *OFC2*FSI  (KK) *ABS  (PHICGI  (KK)  ) + ORC3  5 340 

1 *PHICGI  (KK) ) 5350 

4280  CONTINUE  5360 

C DUAL  TIRES  ON  SOLID  REAR  AXLE  5370 

C IDULTR  = 0,  NC  DUALS  5380 

C =1,  DUALS  5390 

C 5400 

IF(IDULTR.  EQ.1)  CALL  DUAL  5410 

C 5420 

SALTQ  = ALTQ  (1)  +ALTQ  (2)  ♦ ALTQ  (3)  +AITQ  (4)  5 430 

FOTM=OTM  (1)  *OTM  (2)  5440 

ROTM=OTM  (3)  +OTM  (4)  5450 

C AERODYNAMIC  FORCES  AND  MOMENTS  - S FXS , SFYS , S FZS , SNPHIS , SNTHES , SNPSIS  5460 

C 5470 

IF  (IAERO .EQ. 1)  CALL  AERODY  5480 

C 5490 

SFXU  = FXU1+FXU2  + FXU3*FXU4*FXU5*FXU6+SFXS  5 500 

SFYU=FYUUFYU2*FYU3*FYU4+FYU5+FYU6+SFYS  5510 

C *****  COMPUTATION  OF  MOMENTS******* 

ZFDEL1=ZF*DEL1 

ZFDEL2=ZF*DEL2 

ZRDEL3  = Z R*  DEL3 

ZRDEL4=ZR+DEL4 

TFPHIF=TF02*PHIF 

TRPHIR=TR02*PHIR 

C****  LET  HCOSG  (K)  = H (K)  *COS  GAMM  A*  H (K) 

DO  12  K=  1, 4 

HCOSG  (K)  = H (K)  *COABGH  (3,  K) 

12  CONTINUE 

C****  COMPUTE  MOMENTS  8=SFSR  9=IFSB  10=IFIR  ***** 

IF  ( I AX-  1 ) 8,9,10 

8 SNPHI U=  ~ (FYUI  (1)  +FYUI(2)  ) *Z  FDEL  1-  (FYUI  (3)  +FYUI  (4)  ) * ZRD E L3 
SN  TH  EU=  F XU  I (1)  * (ZFD  E L 1 +TF  PHIF  + H COSG  (1)  ) 

1 +FXUI  (2)  * (ZFDEL1-TFPHIF+HCOSG  (2)  ) 

1 +FXUI  (3)  * (ZRDEL3+TRPHIP+HCOSG  (3)  ) 

1 * FXUI  (4)  * (ZRDEL3-TRPHIR  + HCOSG  (4)  ) 

C MOMENTS  ABOUT  SOLID  FBCNT  AXLE 

SNPHIF=FZUI  (1)  * (TF0  2+  H ( 1 ) *CO  ABG  H (2 , 1 ) ) -FZUI  (2)  * (TF02  - 

1 H ( 2)  *COA  BGH  (2,2))-FYUI(1)*  (TFP  HIF  + HCOSG  (1)  ) + 

1 FYUI  (2)*  (TFPHIF-HCOSG  (2)  ) *FOTM 
C MOMENTS  ABOUT  SOLID  REAR  AXLE 

13  SNPHIR=FZUI  (3)  * (TR02+  H (3  ) * CO  ABG  H (2,  3)  ) - 

1 FZUI  (4)*  (TR02-  H (4)  *COABGH  (2,4)  ) 

1 -FYUI  (3)  * (TRPHIR+HCOSG  (3)  ) 

1 * FY  UI  (4)*  (TRPHIR - HCOSG  (4)  ) +R0TM 
GO  TO  1 1 

9 SNPHIU=-FYUI  (1)  * (ZFDEL  1 +HCOSG  (1)  -HFC) 

1 -FYUI  (2)  * (ZFDEL2  + HCOSG  (2)  -HFC) 

1 - (FYUI  (3)  +FYUI  (4)  ) *ZBDEL3*FGTM 
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SNTHEU=  F XU  I ( 1 ) * (ZF D EL  1 ♦ HCOS G ( 1)  ) +F XUI  ( 2 ) * (ZFDEL  2+ HCOSG  ( 2)  ) 

1  *FXUI  (3)  * (ZRDEL3+TRPHIR+HCOSG  (3)  ) *FXUI  (4)  * (ZRDEL3  -T RPHI R+ 

1 HCOSG  (4)  ) 

GO  TO  1 3 

10  SNPHIU=-FYUI  (1)  * (ZFDEL  1 + HCOSG  (1)  -HFC)  -FYUI  (2)  * (ZFDEL2* HCOSG  (2) 

1 -HFC)  -FYUI  (3)  * (ZRD EL3  + HCOSG  (3)  -HRC) 

1 -FYUI  (4)  * (ZRDEL4*  HCCSG  (4)  -HRC) 

1 + FOTM  + EOTM 

SNTHEU=FXUI  (1)  * (Z  FDEL1  +HCOSG  ( 1 ) ) *F  XUI  (2  ) * (ZFDEL2+ HCOSG  (2)  ) 

1 *FXUI  (3)  * (ZRDEL3+  HCCSG  (3)  ) + FX  01  (4)  * (ZRD  EL 4+ HCOSG  (4)  ) 

11  CONTINUE 

SNPSIU=F YUI  (1)  * (A  + H (1)  ♦COABGH  (1,1)  ) +FYUI  (2)*  (A  + H (2)  *CO A BGH  (1,2)  ) 

1 -FYUI  (3)*  (B-H  (3)  *COABGH  (1  , 3)  ) -FYUI  (4)  * (B-H  (4)  *CO ABGH  (1,4)  ) 

1 -FXUI  (1)  * (TF0  2+  H (1)  *CCABGH  (2,1))+FXOX  (2)  *(TF02-H(2)* 

1 COABGH  (2,2)  ) -FXUI  (3)  * (TR02+H  (3)*COABGH  (2,3)  ) +FXUI  (4)*  (TR02- 
1 H (4)  *COABGH  (2,4)  ) +SALTQ 

SNTHEU  = SNTHEU  *■  SNTHES 
SNPHIU  = SNPHIU  ♦ S NP HIS 
SNPSIU  = SNPSIU  + SNPSIS 
IF  (IDULTR.  NE.  1)  GO  TO  14 

SNPSIU  = SNPSIU  - F YU5*  (B-H  (3  ) +COABGH  (1  ,3)  ) - 

1 FYU6*  (B-H  (4)  *COABGH  (1 ,4)  ) ♦ (FXU3 -FXU4  ) * (TR02-TIB02)  - 

1 FXU 5*  (TORO 2 + H (3)  *COABGH  (2,  3)  ) ♦ FXU6*  (T0R02  - H (4)  *C OABGH  (2 , 4)  ) 
SNTHEU  = SNTHEU  - (FXU3-FXU4)  * (TR0  2-TIR02)*PHIR  * 

1 FXU5* ( ZRDEL3  + TI R02 *PH IR  + HCCSG  (3)  )♦  FXU6*  (ZBDEL3-TIR02*PH IR  + 

1 HCOSG  (4)) 

SNPHIU  = SNPHIU  - (F  Y05+FYU6)  +ZBDEL3 
SNPHIR=2.0*  (FZUI  (3)  * (TE02*H  (3)  ♦COABGH  (2,3)) 

1 -FZUI  (4)  * (TR02-H  (4)  ♦COABGH  (2,4)  ) ) 

2 -FYUI  (3)  * (TIR02*PHIR  + HC0SG  (3)  ) + FYUI  (4  ) ♦ (TIR02*  PHIR -HCOS  G (4 ) ) 

3 - FYU5*(T0RO2*PHIR+HC0SG  (3)  ) ♦ FYU6*  (T0R02*PHIR- HCOSG  (4)  ) 

14  CONTINUE 

C ♦♦♦♦♦  INERTIAS  AND  GAMMAS  **♦♦*♦ 

ZFDL  1 = ZFDEL  1**2 
ZFDL2=ZFDEL2**2 
ZRDL3=ZRDEL3**2 
ZRDL  4 = ZR  DEL 4** 2 
GO  TO  (31,32)  , I AX 
C SOLID  FRONT  AND  REAR 

AIXP=AMUF*ZFDL1+AMUR*ZRDL3  E 

AIYP=A IXP 

AIXZP=AMUF*A+ZFDEL1-AMUR*B*ZRDEL3 
GAH2=AMUF*ZFDEL1+AMUR*ZRDEL3 
GA  M3=G  AM  2 
GAM4=0. 

GAM5=AMUF*A*A+AMUR*B*B 
GAM6  = 2.  *AMUF*DEL1  DT+2.  * AMUR*DEL  3DT 
GAM 7=2. *AMUF*DEL1DT*ZFDEL1*2. * A MUR *DEL3 DT*ZRDEL3 
GAM8=0. 

GAM9  = AM  UF*  2. *A*DEL1DT-AMUR*2. *B*DEL3DT 
GO  TO  3 3 
31  CONTINUE 

C IND  FRONT  SOLID  REAR 

AIXP=AM UF/2.  * (ZFDLUZFDL2)  + AM UR*ZR DL3 
AI YP=A IXP 

AI XZP= AM  UF*A/2 . * (ZFDEL 1 + ZFDEL2) -AMUR*B*ZR  DEL 3 
GAM2  = AMUF*  (ZF+ (DELI  +EEL2) /2.)  *AM  UR*ZR  DEL3 
IF  (P  ARAM  (276)  . EQ.  1 1 .)  GAM2=  AM  UF  *ZF  ♦ AMUR  *ZR 
IF  (PARAM  (276)  . EQ.  8.  ) GAM2  = AM  U F *ZF  ♦ AM  UR  *ZR 
GAM  3=GAM  2 
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GAM4=AMUF*TF/4.  * (DELI  - DEL  2)  F 

GAM  5=AM  0 F*  (A  *A  - TF02**  2 ) «■  AM  U R*  B*E  F 

GAM6  = AMUF*  (t)ELl  DT  + DEL2ET)  *2 . * AM  UR* DEL 3 DT  F 

GAM7  = AMUF*  (ZF*  (DELI DT+EEL2DT)  + DEL1  *DEL1  ET+DEL2*DEL2DT) 

1 + 2.*AMUR*ZRDEL3*DEL3DT  F 

GAM8=AMUF*TF02*  ( DEL  1 DT- DEL2 DT ) F 

GAM9  = AM  U F*  A*  (DE  L 1 DT  + DE  1 2DT)  -2 . * AMO R*B*DEL 3DT  F 


IF  (P  AH  AM  (276)  .EQ.  1 1 - ) GO  TO  131 
IF  (PARAM  (276)  . ME.  10)  GCTO  130 
131  CONTINUE 
GAM4  = 0. 

GAM  5 = 0. 

GAM6  = 0. 

GAM  7 = 0. 

GAM8  = 0. 

GAM  9 = 0. 

130  CONTINUE 
GO  TO  3 3 
32  CONTINUE 

C IND  FRONT  AND  REAR 


AIXP=AMUF/2.  * (ZFDL1  ♦ZEEL2)  + AM  UR/2.  * (ZRDL3+ZRDL4)  G 

AI  YP  = A IXP 

AI XZP=  A M UF*  A/2.  * (ZFEEL  1+Z  FDEL  2)  -AMUR*B/2.*  (ZRDEL3  + ZRDEL4)  G 

GAM2  = AMUf*  (ZF+ (DELI  + DEL2)/2.)+AMUR*(ZR  + (DEL 3 +DEL4)/2.)  G 

GAM  3=G  AM  2 

GAH4=AMUF*TF/4.  * (DELI  -DEL  2)  +AMUR*TR/4  .*  (DEL3  -DEL4)  G 

GAM  5=  AM  U F*  (A  *A- TF02 **2  ) ♦ AM U R*  (B*B-TR02**2)  G 

GAM6=AMUF*  (DEL  1 DT+ D EL2  ET)  ♦ A MU  E*  (DE  L3DT+ DEL4DT)  G 

GAM7=AMUF*  (ZF*  (DELI DT  + EEL2DT)  +DEL1  *DEL1 ET+DEL2*DEL2DT) 

1 +AMUR*  (ZR*  (DE L3DT+DEL4DT) + DEL3  *DEL3 DT +DEL4 *DEL4 DT) 

GAM8  = AMUF*TF02*  (DEL  1 ET-EEL2 DT ) + AMUR*TR0  2*  (DEL3 DT- DEL4D T)  G 

GAM9  = AM  UF* A*  (DELI DT  + DEI2DT)  -A  MU R*B* (DEL3DT+DEL4DT)  G 

33  CONTINUE 

C CALCULATION  OF  STEER  AND  BRAKE  COMMANDS  DONE  NEXT  6420 

CALL  STRBRK  6430 

6440 

**  * ♦**♦****♦  i**********#***********************^****#******************  6450 

6460 

IF  (N  BMP.  EQ.  0)  GO  TO  8499  6470 

XI (1)  = X + A *CP  S - TFC2*SPS 
XI (2)  = X +A*CPS  ♦ TFC2*SPS 
XI (3)  = X - B *CP  S - TR02*SPS 
XI  (4)  = X - B *CPS  ♦ TRC2*SPS 

NUMBR  = NUMBR  + 1 6520 

DO  8498  1=1,4  6530 

DELX  (I ) = GETDEL  ( XI  , I , P AR  AM  (2  00  ) , NBMP)  6540 

GETDL  = GETDL  ♦ DELX  (I)  6550 

8498  CONTINUE  6560 

8499  CONTINUE  6570 

PTB 1 =PT  E R 6580 

PTB2=PTBR  6590 

AKK1=1 . 0 6600 

AK K 2 = 1 . 0 6610 

IF  (PARAM  (60)  . EQ.  1.0)  GO  TO  4334  6620 

CALL  PTBAK (BETA1,FR1,AKK1,PTB1)  6630 

CALL  PTBAK  (BET  A2,  FR2,  AKK2,  PTB2)  6640 

4334  CONTINUE  6650 

IF  (SWMT. LE.O.)  GO  TO  4333  6660 

FX Si  = (FXU1-FZU1*THS1)*C0SFS1+  (FYU1  + FZU1*PHISA1)  *SINPS1 
FXS2  = (FXU2-FZU2*THS2)  *C0SPS2+  (FYU2+FZU2  *PHISA2)  *SINPS2 
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FYS1=(FYU1+FZU1*PHISA1)  *C0SFS1-  (FXU1-FZU1 
FYS2  = (FYD2+FZU2*PHISA2)  *C0SPS2-  (FX U2-FZU2 


AH T 1 = - (YSA1-H  (1) 
AMT2  = - (YS  A2*H  (2) 
4333  CONTINUE 

AHT1  = S WMT* AMT  1 
AHT2  = SWMT*AMT2 
CALCULATION  OF  ANTI 
FOR  SOLID  AXLE  DEL3 
DL3S  AND  DL4S 


*PSOl)  *FXS1  -PT 
*PS02)  *FXS2-PT 


API  = (CPOF  ♦ 

AP2  = (CPOF  + 

AP3  = (CPOR  * 

AP4  = (CPOR  ♦ 

AR 1 = - (CROF  + 

AR2  = (CROF  ♦ 

AR3  = - (CROR  ♦ 

AR  4 = (CROR  ♦ 

FSWF=0. 5*AMS*G*B/  (A  + E) 
FSWR=0.5*ANS*G*A/  (A+B) 
ANTI1  = AP1+AR1-FBS  1 
AN  TI 2=  AP  2+A  R 2-  FBS  2 
ANTI3=AP3+AR3-FBS3 
ANTI4=AP4+ AR4-FBS4 


PITCH  AND  ROLL  FORCES 
IS  REAR  AXLE  VERTICAL 
ARE  REAR  WHEEL  SUSPENSION  D 
CPI  F*  ELIS  + CP2F*DL1S*DL  IS) 
CP1F*DL2S  + CP2F*DL2S*DL2S) 
CP  1 R*  DL  3 S + CE2R*DL3S*DL3S) 
C P 1 R*  DL4S  + CP2R*DL4S*DL4S) 
CR IF  *D  L 1 S ♦ CR2F*DLlS*DL1S 
*■  CR2F*DL2S*DL2S 
+ CR  2R*DL  3S*DL  3S 
+ CR2R*DL4S*DL4S 


CR 1 F*  DL2S 
CR1R*DL3S 
CR 1R*DL4S 


*THS1 ) *SINPS1 
*THS2) *SINPS2 
E1*COSPSl*FYS1 
E2*COSPS2*FYS2 


ROLL  CENTER 
EFLECTIONS 

* FXUI  (1) 

* FXUI  (2) 

* (FXUI  (3)  +FXU5) 

* (FXUI  (4)  +FXU6) 
FYUI  (1) 

FYUI  (2) 

(FYUI  (3)  + FYU5) 
) * (FYUI (4) ♦ F YU6 ) 


6750 

6760 

6770 

6760 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 


**  * ********* **  ******************************************************** 

SAMPLE  VALUES  TO  CALCULATE  THE  COMPARISON  VARIABLES 
CALL  CVCALC 

********************************************************************** 

PREPARATION  OF  VARIAELFS  TO  BE  OUTPUT  ON  D/A  CONVERTERS 

TM1  = 1./SM 
TEMP=GAM2*TM 1 
IOUT  (0  1 ) =-TEMP 
TEMP=GAM 1*TM 1 
IOUT  (02)  =TEMP 
IOUT  (03)  =- T E M P 
TEM  P=G AM  2*TM  1 
IOUT  (04)  =-TEMP 
TM  1 = 1 . / (AIX+AIXP) 

TEHP=G AM3*TM 1 
IOUT  (05)  =TEMP 
TEMP=(AIXZ*AIXZP)  *TM1 
IOUT  (06)  =TEM P 
TEMP  =GAM7*  TM  1 
IOUT  (07)  =-TEMP 
TEMP=GAM4*TM 1 
IOUT  (08)  =-TEMP 
TEMP=SC ALE*T  M 1 
IOUT  (09)  =TEM P 
TM1=1./  (AIY+AIYP) 

TEMP  = GA  M2*TM  1 
IOUT  (10)  =TEMP 
TEMP=AIXZ*TM 1 
IOUT  (11)  =TEM P 
TEMP=AIXZP*TM1 
IOUT(12)=TEMP 
TEMP=GAM  7*TM 1 
IOUT  (13)  =-T EMP 


6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 
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TENP=GAM  4*TM  1 
IOUT  (14) =-TEMP 
TEMP-SCALE*TH1 
IOUT  (1  5)  =TEMP 
TM 1 = 1 . / (AIZ+AIZP) 

TEMP  = ( A I XZ  «-A  IXZP)  *TM1 
IOUT  (16)  =-TEMP 
TEMP  =GAM  1*TM  1 
IOUT  (17) =-TEMP 
TEMP=GAM  4*TM 1 
IOUT  (18)  =T  EM  P 

TM  1=  1 . / ( AIHR+AID*ARBR*ARBR/4.) 

TM2= 1./  ( AIWF  + AIDF*ARFBR* AR  FBR/4. ) 

IOUT  (19)  =SPINH1/MPHIPS 

IOUT  (20) =SPINH2/MPHIPS 

TE  M P=FR  3 *H  (3 ) *H  (3)  *S L (3)  *TMl/UG3P 

IF  (IDULTR.  EQ  . 1)  TEM P=2. 0*TE MP 

IOUT  (21)  =T EM P 

TEMP=  FR4  *H  (4)  *H  (4)  *SL  (4)  *TM  1/UG4P 
IF (IDULTR. EQ . 1)  TEM P=2 . C*TE MP 
IOUT  (22)  =TEMP 

TEMP  = FR1*H(1)*H  ( 1 ) * SL  < 1 ) *TM 2/ UG 1 P 
IOUT (23) =T  EM  P 

TEMP=FR2*H  (2)  *H  (2)  *SL  (2)  *TM 2/UG  2P 

IOUT  (24)  =TEMP 

TEMP  = SL ( 1 ) ♦ SE P ( 1 ) 

TEMP=  ( FR1*H  (1)  ♦TEMP+TCFBR)  *TH2 

IOUT  (33)  =- TEMP 

TEMP  = SL  (2)  ♦ SEP  (2) 

TEMP=(  FR2*H  (2)  +TEMP  + TQFBL)  *TM2 
IOUT  (34) =-TEMP 

SEP  (3) 

TEMP=2.0*TEMP 
TEMP=  ( FR3*  H (3)  *TEMP+1QBBR)  *T  M 1 
IOUT  (35)  =-TEMP 

SEP  (4) 

TEMP=2.0*TEMP 
TEMP=  ( FR4*H  (4)  *TEMP+TQRBL)  *T  M 1 
IOUT  (36)  =-  TEMP 

TEMP  = ( AMT2  ♦ ALTQ  (2)  ) / A IF  H - RDT 
IOUT  (25)  = -TEMP*PARAM  (175) 

TEMP  = DEL  SWC 
IOUT  (26 ) =T  EM  P 
TM  1 = 1 . /SM 

TE  MP= ( *G AM  6* Q+S FXU) *TM1 
IOUT  (27)  =TEM P 
TEMP=  (GAM6*P*SFYU)  *TM1 
IOUT  (28)  =TEMP 
TEMP= (2. * ( FS  H 
IOUT  (29)  =TEM  P 
TEMP=  ( 1 ./(AIX 
IOUT  (30)  =T EM P 
TEMP  = ( 1 . / (A  I Y 
IOUT  (31)  =TEMP 
TEMP  = (1  ./(AIZ+AIZP)  ) 

1 +GAM9*P*SNPSIU) 

IOUT  (32)  =T EM P 
TEMP=AN  Til 
IOUT  (38)  =TEMP-FSARF 
TEMP=ANT 12 


TEMP  = SL  (3)  «• 

IF  (IDULTR.  EQ.  1) 


TEMP  = SL (4) 
IF (IDULTR. EQ 


+ 

1) 


FSWR) 

-SFZS) 

/AM 

IXP)  ) 

* ( Q*R* 

(AI 

IYP)  ) 

* ( P*R* 

(AI 

IZP)  ) 

* (E*Q* 

(AI 

0) 

♦ SNPHIU) 
♦ SNTHEU) 
♦GAM8*Q 
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10 OT  (39)  =TEMP-FS ALF 
TEMP  =AN  T 13 
IOUT  (4  0)  =TEMP-FSARR 
TEMP  = AN  TI4 
10 UT  (41) =TEM  P-FS  AIR 
c********  SPLIT  FRONT  AXLE  ******** 

TM1  =2.*HFC/TF 

TEMP=  (2./AMUF)  * (FZU 1 - F YU  1 *T M 1 +FSNF)  *P AR AM  (175) 

10  UT  (42)  =TEMP 

TEMP=  (2-/(1000.  * AMU  F)  ) * (FZ  U 2*  FY  U2*TM  1 + F SB  F)  *P  ARAM  (175) 

10 UT  (43)  =T EM P 

C********  SOLID  REAR  AXLE  ******* 

TEMP=  (1  ./AMUR)  * (FZU3  + FZU4) 

IF  (IDULTR.  EQ.1)  TEMP  = 2.0*TEMP 
TEHP=  (TEMP*  (2.  *FSWR/AMUB)  ) * PA  BAM  (17  5) 

10 UT  (44)  =TEMP 

TEMP=  (1  ./  (10.  *AIR)  ) * (SNPHIR)  * PA  BAM  (175) 

10  UT  (45)  =TEMP 
IF(IAX.LE.I)  GO  TO  7719 
C **♦ * * *♦ * SPLIT  REAR  AXLE  ****** 

TM1  = 2 . *HRC/TR 
IH 1 = TAN(TMI) 

TEMP=  (2./AMUR)  * (F ZU  3- F YU3 *T  Ml  + FSWR)  *PAR  AM  (175) 

IOUT  (44)  =TEMP 

TEMP=  (2-/(10  00.  * AMUR)  ) * (FZU  4*  FYU4*TM  1 + FSHR)  *P  ARAM  (175) 

IOUT  (45)  =TEM P 
GO  TO  7 7 20 

7719  IF ( I AX . EQ. 1 ) GO  TO  772C 

C ********  SOLID  FRONT  AXLE  ******** 

TEMP=  (1  ./AMUF)  * (FZ01+FZU2*2.*FSWF)  *PARAM  ( 175) 

IOUT  (42) =T EM P 

TEMP=  (1./(10.*AIF)  ) * (SNPHIF)  * FAEAM  (175) 

IOUT  (43)  =TEMP 

7720  CONTINUE 

TEMP  = ( AM T 1 ♦ ALTQ  (1 ) ) / AIF 8 - RDT 

IOUT  (46)  = -TEMP*PARAM  (175) 

DO  3147  1=1,48  7740 

DACO  (I)  = BVALUE  (DACPLA  (I)  ) /SCALDC  (I)  7750 

SDACO=DACO  (I)  7760 

DACO  (I  )=  AM  AX  1 (-.999  5,  ( AMIN  1 (.  99  95,  DACO  (I)  ) ) ) 7 77  0 

IF(SDACO.EQ.DACO  (I)  ) GC  TO  8317  7780 

IDACK=ID  ACK*  1 7790 

IF  (IDACK  .GT.  10)  IDACK=10  7800 

IERDAC (IDACK)  = I 7810 

TERDAC  (IDACK)=TIME  7820 

8317  CONTINUE  7830 

3147  CONTINUE  7840 

C DATA  COLLECTION  FOR  TRACK  OPTION  7850 

IF  (TIME.  LT.  (ONTIM-.  00001)  ) GO  TO  8185  7860 

IF  (TIME.  GT.OFFTIM)  GO  TO  8185  7870 

IKEEP  = IKEEP  + 1 7880 

IF  (IKEEP.NE.  ISAMP)  GO  TO  8185  7890 

IK  EEP=0  7900 

DO  8199  1=1,  IT  RA  7910 

J=ITRA A (I)  7920 

JI N= JI N * 1 7930 

IF  (JIN.  GT.  1999)  JIN=1999  7940 

ATRACK  (J  IN)  =BVA  LUE  (J)  7950 

8199  CONTINUE  7960 

8185  CONTINUE  7970 

RETURN  7980 

END  7990 


H-59 


H-2.1.8 


LFRIC 


Presented  here  is  the  Fortran  listing  for  the  LFRIC 
subprogram.  The  following  calculations  are  performed  in  LFRIC: 

1.  Lateral  coefficient  of  friction. 

2.  Circumferential  tire  force. 

3.  Lateral  tire  force. 

4.  Circumferential  and  lateral  components  of  the  tire 
force  on  the  wheel. 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  LFRIC 

THIS  SUBROUTINE  CALCULATES  THE  LATERAL  FRICTION  COEFF. 

FUNCTION:  AMUI-MAXIMUM  LATERAL  FRICTION  COEFFICIENT 

INPUTS:  B 1-  (PARAM  (85)  ) rIOAD  TERN  COEFFICIENT  OF  LATERAL  FRICTION 

COEFFICIENT  (1/IE) 

B2-  (PARAM  (86)  ), VELOCITY  TEEM  COEFFICIENT  OF  LATERAL 
FRICTION  COEFFICIENT  (1/KPH) 

B3-  (PARAM  (87)  ),  CONSTANT  TERM  (UNITY) 

B4-  (PARAM  (88)  ) , QUADRATIC  LOAD  TERM  (1/LB**2) 

FRI-RADIAL  TIRE  FORCE  (POUNDS) 

CVI-VELOCITY  OF  VEHICLE  (MPH) 

OUTPUT:  AMUI-MAXIMUM  LATERAL  FRICTION  COEFFICIENT  (UNITY) 


COMMON/TYRTBL/  FRTBI (7)  , B3T EL  (7) , AOTBL  (7) 

COMMON/PAUL/  D 1 , D 2 , D 3 , D 4, SF YU , T MP, SNPHIU, SNTHEU , SNP SIU , 

1QDT, PDT  , RDT  r UDT , VD T , fcDT , PHI DT  ,TH EDT , PSI LT, XDT , YDT , ZDT , 

1 A KK 1 , AKK2  , THS1,THS2, 

1AMT1 , AMT  2,  SN  , SFXU ,B TVDT ,ETA  X,  ETAL, 

1 ZIP  (4)  , PH  1 1 (4)  , 

1 U1I  (4)  ,BAMI  (4)  ,MUP  (4)  , SARI  (4)  , FI  (4)  , FXUI  (4)  ,FYUI  (4)  , GI  (4)  , 

1 ALFI  (4)  , BETIP  (4)  , BE  TIB  R (4)  , SLIPI  (4  ) , AMI  I (4)  , AM2I  (4)  , UGl  (4)  , 

1 FCI  (4)  ,FCIMAX  (4)  , FSI  (4)  , 

1 ABI  (4)  ,BETAI  (4)  ,AMUI  (4)  , SNI  (4)  , R MI  (4)  ,GBI  (4)  ,FRIBR  (4)  , 

1 RWZI  (4)  ,ZI  (4)  , FRI  (4)  , UI  (4)  , VI  (4)  , WI  (4)  , UGI  (4)  , 


LFRI 
LFRI 
C LFRI 
CLFRI 
C LFRI 
CLFRI 
CLFRI 
CLFRI 
CLFRI 
LFRI 
LFRI 
CLFRI 
CLFRI 
CLFRI 
CLFRI 
CLFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 


1 


V GI  (4)  , SIN  PS  I (4)  ,PSII  (4)  ,COSPSI  (4)  ,UGIP  (4)  , PHICGI  (4)  ,CVI  (4)  LFRI 


1,ALTQ(4)  ,OTM  (4)  , SALTQ  , FCTM  , BO  TM 

1 ,AP1  , AP2 ,AP3, AP4, AR 1 , AR2, AR3, AR 4, A NT1 1 , AN TI2 , ANTI 3 , A NTI 4 
1 , DL I S ( 4)  ,Z  IM  X (4)  ,FBS1,FBS2,FBS3,FBS4 
1 #PHIDMX 

COMMON/SP7BLK/N1,N2,IPCT  (120)  ,IFOTAD(120)  , PARAM  (400) 

COMM ON/COM BLK/  SM  , Cl P , C I VP , EZ F , BZR , A2T , CA 20 , C A23 , TS F02 , 

1 TR02,TF02,TS02,G,THRD, TW N7 , R2T , R A20, RA23 

COMMON/SPLTA  X/  SP SR3 , S PSR4 , I A X 
COM MON/C AC A 10/ EPS  K1 ,EPSK2, F EE  1 , EEE2, T HE  1 , THE2 
COMMON/ VAR S/P ,Q,R,U, V,R,X, Y,Z,THE,PHI,  PSI 
EQUIVALENCE 

1 (PARAM  (34)  ,CA0)  , (PA  RA  M (35)  , CA  1 ) , (PARAM  (36)  , CA2) 

1 (PARAM(37)  ,CA3)  , (P  A RA  M ( 38)  , CA4)  , (PARAM  (39)  , AISS) 

1 (PARAM  (85)  ,B1)  , (PARAM  (86)  , B2)  , (PARAM  (87)  , B3)  , 


LFRI 

LFRI 

LFRI 

LFRI 

LFRI 


LFRI 

LFRI 

LFRI 

LFRI 

LFRI 

LFRI 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 


390 

400 

430 

440 

450 

460 
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1 (PARAM  (88)  ,B4)  , (PARAM  ( 89 ) , DELI  D N)  , ( PARAM  ( 90),DEL2DN) 

1 (PARAM  (242)  ,AKCF)  , (PABAM  (243)  , AKCR)  , (P  ARAM  (244)  ,AKSR)  , 

1 (PARAM  (2  9 0)  , ROT)  , (PABAM  ( 29  1)  ,RA0)  , (PARAM  (292)  , RA1)  , 

1 (PARAM  (29  3)  ,RA2)  , (PARAM  (294)  ,RA3  ) , (PAR  AM  (29  5)  , RA4) 

EQUIVALENCE  (P  AR  AM  (2  4 5 ) , RB  1 ) , (P  A RAM  (24  6 ) , R B2) 

1,  (PARAM  (24  7)  ,RB3)  , (PARAM  (248)  , EB4) 

IF  (PARAM  (209)  . EQ.  1.  ) GC  TO  5 CO 
CO  6 0 K=1,2 
KK  = K ♦ 2 

AMUI  (K)  = (B1*FRI  (K)  *B2*CVI  (K)  + E3+84*FRI  (K)  *FRI  (K)  ) *SNI  (K) 

RMI  (K)  = FR  I (K)  * AMUI  (K) 

FRIBR(K)  = AMIN  (FRI  (K)  ,A2T) 

ALFI  IS  THE  DENOMINATOR  FOR  THE  BETA  BAR  CALCULATION 
AL  FI  (K)  = CA  1*FRIBR  (K)  * (FRIBR  (K)  - CA2 ) - CA20 

IF  (ALFI  (K) /CA2.  GE.O.  ) ALFI  (K)  = -1.0E-10 

BETIP(K)  = CA23*  (CA4-FRIBR  (K)  ) *FRIBR(K)  *PHICGI  (K) /(CA4*ALFI  (K)  ) 
EQ.O.)  GO  TO  610 

+ BETIP  (K)  )/ (CA2*RMI  (K)  ) 


= ALFI  (K)  * (E  FT  A I (K) 


610 
71  0 


+ R B 1 *F  RI  (KK)  + RB2*CVI  (KK)  + RB4*FRI  (KK)  *FRI  (KK) 


RA20 


630 

730 

60 

500 


IF  (RMI  (K) 

BETIBR (K) 

GO  TO  710 
BETIBR  (K)  = 0. 

CONTINUE 
AMUI  (KK)  = (RB3 
1 *SNI(KK) 

RM  I (KK ) * FRI(KK)  * AMUI  (KK ) 

FRIBR  (KK)  = AMIN  (FRI  (KK)  ,R2T) 

ALFI  (KK)  = RA1*FRIBB  (KK)*  (FRIER  (KK)  - RA2)  - 
IF (ALFI (KK) /RA2.GE. C.)  ALFI  (K K)  = 1.0E-10 

BETIP  (KK)  = RA  23*  (RA4 -FRIBR  (KK)  ) * FRIBR  (KK)  *PHICGI  (KK)  / (R  A 4*  ALFI  (KK) 
IF  (RMI  (KK)  . EQ.  0.  ) GO  TC  630 

BETIBR(KK)  = A L FI  (KK ) * (BET  AI  { KK)  ♦ BETIP(KK))  / (R  A2*R  M I ( KK)  ) 

GO  TO  730 
BETIBR  (KK)  = 0. 

CONTINUE 
CONTINUE 
GO  TO  510 
CONTINUE 
DO  521  K = 1,2 
KK  = K *■  2 

AMUI(K)  = XINT  (FRI  (K)  ,FRTBL  ,B3TEL,  7)  *SNI  (K) 

AMUI  (KK)  = XINT  (FRI  (KK)  , FRTBL,  B3  T BL , 7 ) * SN I (K K) 

AL  FI  (K ) = -XINT  (FRI  (K)  , FRTBL,  AOTBL, 7) 

AL  FI  (KK)  = -XINT  (FRI  (KK)  , FRTEL,  AOTBL, 7) 

521  CONTINUE 

DO  520  K = 1 , 4 

RMI  (K)  = FRI  (K)  * AMUI  (K) 

BETIP  (K)  0. 

BETIBR  (K)  = 0. 

IF  (RMI  (K)  .EQ.O.)  GO  TC  530 

BETIBR  (K)  = ALFI  (K)  * (EFTAI  (K)  ♦ BETIP  (K)  ) /RMI  (K) 

530  CONTINUE 
520  CONTINUE 
510  CONTINUE 

DO  11  K=  1 , 4 

ABI  (K)  = ABS  (BETIBR  (K)  ) 

IF(ABI(K)  .GE.3.)  GO  TO  10 

GBI(K)  = BETIBR  (K)  * (1. -THRD*AEI  (K)  +TWN7*BETIBR  (K)  **2) 

GO  TO  80 

10  GBI(K)  = BETIBR  (K)/ABI  (K) 

80  CONTINUE 


L FRI 
LFRI 
LFR I 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
) LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
) LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 
LFRI 


470 
480 
490 
500 
510 
520 
550 
56  0 
570 
580 
590 
600 
610 
620 
630 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1 030 
1 040 
1050 
1 060 
1 070 
1 080 
1 090 
1 100 
1110 
1 120 
1 130 
1 140 
1150 
1 160 


H-61 


c 

CLFRI1 170 

c 

FUNCTION: 

FCSI-SIDE  FORCE  SHAPING  AS  A FUNCTION  OF  SLIP 

CLFRI1 180 

c 

CLFRI1 190 

c 

INPUTS: 

SAMI-  SIDE-SLIP  ANGLE  (DEGREES) 

CLFRI1 200 

c 

GAB  F-SIDE  FORCE  SHAPING  FUNCTION  AS  A FUNCTION  OF 

CLFRI1 210 

c 

SLIP  (UNITY) 

CLFRI 1220 

c 

AFA-BRAKING  SLIP  (UNITY) 

CLFRI1230 

c 

NFA-NOMBER  OF  DATA  POINTS 

CLFRI1240 

c 

CLFRI1250 

c 

OUTPUTS: 

FCSI-LINEARLY  ITERPOLATED  SIDE  FORCE  SHAPING  FUNCTION 

CLFRI 1 260 

c 

CLFRI1270 

BAMI(K)  = BETA  I (K ) ♦ BETIP(K) 

LFRI1280 

SABI(K)  = BABI (K) *57. 29578 

LFRI1290 

FI  (K) 

= FCSI  (S  AMI  (K)  ,SLIPI  (K)  ) 

LFRI1300 

XX  = ABS  (ABUI(K)  *GBI  (K)  ) 

LFRI1 310 

ASNBET 

= ABS  (SIN  (BETAI  (K)  ) ) *SNI  (K) 

LFRI1 320 

GO  TO 

(100,100,  110,  1 10)  , K 

L FR1 1330 

100 

XXX  = 

(XX  - (XX-PARAM  (206)  *ASNBET)  *FI  (K  ) ) *SIGN  (1.  ,GBI  ( K) ) 

LFRI1340 

GO  TO 

120 

LFRI1 350 

110 

XXX  = 

(XX  - (XX-PARAB  (207)  *ASNBET)  *FI  (K)  ) *SIGN  (1.  ,GBI  (K) ) 

LFRI1 360 

120 

CONTINUE 

LFRI1 370 

c 

PARAM  (306)  TO  (309)  CIECUM.  FRICTION  COEF. 

LFRI1380 

FSI  (K) 

= FRI(K)  * XXX 

LFRI1 390 

1 1 

CONTINUE 

LFRI1450 

RETURN 

LFRI1460 

END 

LFRI1 470 
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Presented  here  is  the  Fortran  listing  for  the  CFRIC 
subprogram.  Calculation  of  the  circumferential  friction  coeffi- 
cient is  performed  in  this  subprogram. 


C SUBROUTINE  CFRIC  CFRI 

SUBROUTINE  CFRIC  CFRI 

C*** ******************************************************************** CFRI 
C THIS  SUBPROGRAM  CALCULA1ES  THE  CIRCUMFERENTIAL  FRICTION  CFRI 

C COEFFICIENT  CFRI 

C*** ******************************************************************** CFRI 
C PI  UP-  PEAK  ERAKING  COEF  . CF  FRICTION  CFRI 

C MUS-  SLIDING  COEF.  OF  FRICTION  CFRI 

C SII-  SLIP  RATIO  AT  WHICH  PEAK  BRAKING  CFRI 

C COEF.  OF  FRICTION  OCCURS  CFRI 

C CFRI 

C SNI-  RATIO  OF  SIM.  VEHICLE  SKID  NUMBER  SURFACE  CFRI 

C TO  TIRE  DATA  SKID  NUMBER  SURFACE  CFRI 

C CFRI 

C FUNCTION:  AH1I-RISE  SLOPE  OF  DXI  VS.  WHEEL  SLIP  CFRI 

C CCFRI 

C SAMI-  SLIP  ANGIE  (DEGREES)  CFRI 

C SII-  (PARAM  (1  82)  , UNITY)  CCFRI 

C SI2- (PARAM  (183)  , UNITY)  CCFRI 

C SI3-  (PARAM  (1  84)  , UNITY)  CCFRI 

C SI4- (PARAM  (185)  , UNITY)  CFRI 

C CCFRI 

C OUTPUT:  AM  1 1 - UNITY  CFRI 

COMMON/CFRC/  SL  (4)  , SEP  (4)  ,CFCCEF  (4  ) , ARPS  (4) 

COMHON/EAUL/  D 1 , D2 , D3 , E4, S FYU , T MP, SNPHI U, SNTHEU , SNP SIU , CFRI 

1QDT,PDT,  RDT  , UDT , VDT , SDT , PHI DT  ,TH EDT , PSI DT, XDT , YDT , ZDT , CFRI 

1 AKK1,AKK2,  THS1,THS2,  CFRI 

1AMT1 ,AMT2, SN , SFXD ,B TVD T,ETA X, ET AL,  CFRI 

1 ZIP  (4)  , PHII  (4)  , CFRI 

1 U1I  (4)  , BAM  I (4)  , MUP  (4 ) , S AMI  ( 4)  , F I (4 ) ,FXUI  (4)  ,FYUI  (4)  ,GI  (4)  , CFRI 

1 ALFI  (4)  , B ETI P (4 ) , BETIB  R (4)  , SLIPI  (4)  , AMI  I (4)  ,AM2I  (4)  , UOI  (4)  , CFRI 

1 FCI  (4)  ,FCIMAX  (4)  , FSI  (4)  , CFRI 

1 ABI  (4)  ,BETAI  (4)  , AMUI  (4)  , SNI  (4)  ,RMI  (4)  ,GBI  (4)  ,FRIBR  (4)  , CFRI 

1 RWZI  (4)  rZI  (4)  ,FBI  (4)  , UI  (4)  rVI  (4)  ,WI  (4)  ,U  GI  (4)  , CFRI 

1 V GI  (4)  , SIN  PSI  (4)  , PSI  I (4)  ,COSPSI  (4)  ,UGIP  (4)  ,PHICGI  (4)  ,CVI  (4)  CFRI 

1 , ALTQ  (4)  ,0 TM  (4)  ,SALTQ,FOTM , ROTM  CFRI 

1, API , AP2,AP3,AP4,AR 1 , AR2,AR3, AR4,ANTI1 , ANTI2 , ANTI3 , ANT  14  CFRI 

1 fDLIS (4)  ,ZIMX (4)  , FBS 1 , F ES2 , FBS3,FBS4  CFRI 

1 ,P  HIDM  X CFRI 

COMMON/ VARS/P,Q,R,U ,V, W,X, Y , Z , T EE, PHI , PSI 

COMMON /SP7BLK/N  1,N2,IPOT(120)  rIPOTAD(120)  #PARAM(400)  CFRI 

RE  AL  *4  MUSF,MUSR  CFRI 

REAL*4  M US  (2)  ,APF  (2)  ,APR  (2)  ,IOUT  (48)  ,MUP,  SII  (4)  CFRI 

EQUIVALENCE  (P  AR  AM  ( 1 8 2 ) , SI  I (1  ) ) , (P  A RAM  (35  1 ) , IOUT  ( 1 ) ) CFRI 

EQUIVALENCE  (P  AR  AM  ( 20  2 ) , AP  F (1 ) ) , (P  ARAM  ( 20  4)  , APR  ( 1)  ) , CFRI 

1 (PAR  AM  (206)  , MUS  ( 1)  ) CFRI 

EQUIVALENCE  (APF  (1 ) , AEF  1)  , (APR  (1)  , APR  1 ) , CFRI 

1 (APF  (2)  ,APF2)  , (APR  (2)  ,APR2)  CFRI 

EQUIVALENCE  (BCON  f PARA  B (2  08) ) CFRI 

DO  13  K=  1 , 2 CFRI 

KK=K  +2  CFRI 

MUP(K)  = A PF 1 * APF2 *FR I (K)  CFRI 

MUSF  = MUS  (1 ) + PARAM  (210)  * FR  I (K) 
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280 

290 
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340 
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MU S F = MUSF  *ABS  (COS  (BETAI  (K)  ) ) 


AM  1 1 ( K)  = (MUP(K)/SII  (K)  )*  (1.  - BCO  N * A BS  (S  AM  I (K)  ) ) 

CFRI 

540 

c ** 

MUS  ( 1 ) EQUALS  MUSF, MUS  (2)  EQUALS  MUSR  ** 

CFRI 

550 

IF  ( (AM  1 I (K)  ) *SII  (K)  .LT.MUSF)  AMlI(K)  = MUSF/SII(K) 

CFRI 

560 

IF  (SLIPI  (K)'.  GT.  SII  (K)  ) GO  TC  71 

CFRI 

570 

AM  11  (K)  = AM  11  (K)  * SNI  (K) 

SL (K  ) = AMI  I (K  ) 

SEP  (K  ) =0. 

CFRI 

580 

GO  TO  72 

CFRI 

630 

71 

CONTINUE 

CFRI 

640 

AM  21  (K ) = (MUSF-  (AMlI  (K)  *SII  (K)  ) ) / (1  . - SII  (K)  ) 

CFRI 

650 

AM2I  (K)  = AM2I(K)  * SNI(K) 

SL  (K  ) = AM2I  (K  ) 

CFRI 

660 

C OUTPUT:  U1  I- VALUE  OF  UXI  AT  BRAKE  SLIP  = 1.  (UNITY) 

CFRI 

680 

U1 1 (K)  = MUSF  * S NI  (K) 

CFRI 

690 

C OUTPUT:  UOI- INTERCEPT  OF  UXI  AT  BRAKE  SLIP  = 0 (UNITY) 

CCFRI 

700 

UOI  (K)  = U1I  (K)  - A M2 1 (K) 

SE  P ( K ) = UO  I (K  ) 

CFRI 

710 

72 

CONTINUE 

CFRI 

730 

MUP(KK)  = APR1  «■  APP2  * FRI(KK) 
MUSR  = MUS  (2)  + PARAM  (211)  *FRI  (KK) 
MUSE  = MUSR  *ABS  (COS  (BETAI  (KK)  ) ) 

CFRI 

740 

AM  1 1 (K K ) = (MUP  (KK) /SII  (KK)  ) * (1 . - BCON  *A  BS  (SAMI  (KK)  ) ) 

CFRI 

760 

IF(  (AM  11  (KK)  ) *SII  (KK)  .IT. MUSR)  AMI  I (KK)  = MUSR/SII(KK) 

CFRI 

770 

IF(SLIPI  (KK)  .GT.SII  (KK)  ) GO  TC  76 

CFRI 

780 

AM  1 1 (KK  ) = A M 1 1 (KK)  * SNI(KK) 
SL  (KK)  = AM1I  (KK) 

SEP  (KK)  =0. 

CFRI 

790 

GO  TO  77 

CFRI 

820 

76 

CONTINUE 

CFRI 

830 

AM  2 1 ( K K ) = (MUSR  - ( A M 11  (KK)  *S  II  (KK)  ) ) / ( 1 . - SII  (KK)  ) 

CFRI 

840 

AM2I  (KK)  = AM2I  (KK)  * SNI(KK) 
SL  (KK)  = AM2I  (KK) 

CFRI 

850 

U1 1 (KK)  = MUSR  * SNI  (KK) 

CFRI 

870 

UOI(KK)  = UII(KK)  - AM2I  (KK) 
SEP  (KK)  = UOI  (KK) 

CFRI 

880 

77 

CONTINUE 

CFRI 

900 

13 

CONTINUE 
DO  10  K=1,4 

CFCOEF(K)  = SL  (K)  *SLIPI  (K)  + SEF(K) 

FCI(K)  = -CFCOEF  (K)  *FRI  (K) 

CFRI 

910 

10 

FCIMAX  (K)  =-FRI  (K ) * A M 1 1 (K)  * SI  I (K) 
CONTINUE 

LFRI1 

440 

RETURN 

CFRI 

920 

END 

CFRI 

930 
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H-2.1.10  DUAL 


C 


Presented  here  is  the  Fortran  listing  for  the  DUAL  tire 
subprogram.  Calculation  of  dual  rear  tire  digital  model  equations 
is  performed  in  this  subprogram. 


SUBROUTINE  DUAL 
SUBROUTINE  DUAL 

COMMON/T YRTBL/  FRTBL  (7)  , B3T  EL  (7)  , A OTBL  (7) 

COMHON/DULVAR/Z3ID, Z4ID  ,Z50D, Z6CD, 

1 F3RID, F 4RID, F5ROD,F6BOD, 

1 U3ID, U4ID,U50D, U6CD, 

1 V3ID, V4IE,V50D, V6CD, 

1 W3ID, W4ID,W50D, W6CD, 

1 UG3ID,UG4ID, UG5CD,UG60D, 

1 VG3ID ,VG4ID, VG5CD,VG60D, 

1 UG3IDP, UG4IDP  ,UG5CDP ,UG60DP, 

1 S3ID,S4IE,S50D, S6CD, 

1 CF3ID ,CF4ID,CF5CD  ,CF60D, 

1 AMUI3 , AMUI4, AMU  15,  AMUI6, 

1 A LTQ3P , AITQ4  P , 

1 OTM3P,OTM4P,  0TM5,0TM6 

COMMON/D UALS/IDULTR,NW HEEL, TIRO  2, T0B02 , TI RTOR , VBR ZRP  , 

1 FXU  5, FXU6, FYU5,FYU6,AITQ5, ALTQ6,FSI3 ,FSI 4, F5I5 , FSI6 , PPHIR 
COMMON/XES/XB  (30)  , NS  (4,30)  , DELX  (4)  , XI  (4)  , NNN 
COMMON/PAUL/  D1 , D 2 , D 3 , D 4, SF YU  ,TMP, SNPH I U, SNTHEU ,S N PS IU , 

1QDT,PDT,  RDT  ,U DT , V DT , V CT , P HI DT , THEDT , P SI DT , XDT , YDT , ZD T , 

1 AKK1,AKK2,  THS1,THS2, 

1 AMT1 ,AMT2,SN , S FXU , BTVDT,  ETAX, ETAL, 

1 ZIP  (4)  , PHII  (4)  , 

1 U1I  (4)  ,BAMI{4)  ,MUP(4),SAMI(4)  , FI  (4)  ,FXUI  (4)  , FYUI  (4)  , GI  (4)  , 

1 ALFI  (4)  , B ETI  P (4)  , BE  TIB  F (4)  , SLIPI  (4)  , AM  II  (4)  , AM2I  (4)  ,U0I  (4)  , 

1 FCI (4)  ,FCIHAX  (4) , FSI  (4) , 

1 ABI  (4)  ,BETAI  (4)  , AMUI  (4)  , SNI  (4)  ,RMI  (4)  ,GBI  (4)  , FR  I BR  (4)  , 

1 RWZI  (4)  ,ZI  (4)  ,FRI  (4)  , UI  (4)  , VI  (4)  , WI  (4)  , U GI  (4)  , 

1 V GI  (4)  , S IN  PS  I (4)  , PSII  (4)  ,COSPSI  (4)  ,UGIP  (4)  ,PHICGI  (4)  ,CVI  (4) 

1,ALTQ  (4)  ,OTM  (4)  , SALTQ  , FCTM,  FOTM 

1,AP1,AP2,AP3,AP4,AR1,AB2,AR3,AR4,ANTI1, ANTI2 , A NTI3 # ANT  1 4 
1 ,DLIS  (4)  ,ZIMX  (4)  ,FBS1, FES2, FBS3,FBS4 
1 #P  HI  DM  X 

COMMON/VARS/  P,Q,R,U,V,W,X,Y, Z , THE , PHI , PS  I 

COMMON/COM BLK/  S H , C IP ,CI VP , EZF , RZR , A2 T , CA 20 , C A23 ,TS F02 , 

1 TR02rTF02,TS02, G, THRD, TWN7#R2T/RA20,RA23 
COMMON/C  FRC/  SL  (4)  ,SEP  (4)  ,CFCCEF(4)  ,ARPS(4) 

COMMON/SP7BLK/N  1 ,N2,  IPOT  (120)  ,IPOTAD(120)  #PARAM(400) 

COMMON/ADCOUT/  DELI DT, EEL2DT, EEL3DT,DEL 1, EEL2 , DEL3 , PHI R D, PHIR, 

2 DEL  FW 1 , DELF  W2 ,S1P,S2P,S3P,S4P 
RE AL*4  AKTI  (4)  ,IOUT  (48) 

EQUIVALENCE 

1 (PARAM  (5)  ,ZR)  , (PARAM  (7)  , B)  , 

1 (PARAM  (31)  ,RW)  , 

1 (PARAM  (79)  , AKTI  (3)  ) , (PARAM  (80)  , AKTI  (4)  ) , 

1 (PARAM  (2  45)  ,RB1)  , (PARAM  (246)  ,EB2)  , 

1 (PARAM  (247)  ,RB3)  , (PARAM  (248)  , RB 4)  , 

1 (PARAM  (252)  ,ARK1)  , (PARAM  (253)  , A BK2 ) , (PARAM  (254)  , ARK3)  , 

1 (PARAM  (259)  ,ORC0)  , (P  AR  AM  (2  6 0)  , O EC1  ) , (PARAM  (261)  ,ORC2)  , 

1 (PARAM  (262)  ,ORC3)  , (ARPS3,ARFS  (3))  , ( ARPS 4,  ARPS  (4)  ) 

Z3ID=Z I (3)  +TIRTOR*  (PHI  + PHIR) 

Z4ID=ZI  (4)  -TIRTOR*  (PHI  + PHIR) 


DUAL 

10 

DUAL 
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DUAL 
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DUAL 
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DUAL 
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DUAL 
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DUAL 
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DUAL 
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DUAL 
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DUAL 
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DUAL 
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DUAL 
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DUAL 
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DUAL 
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DUAL 

190 

DUAL 

200 

DUAL 

210 

DUAL 

220 

DUAL 

230 

DUAL 

240 

DUAL 

250 

DUAL 

260 

DUAL 

270 

DUAL 

280 

DUAL 

290 

DUAL 

300 

DUAL 

310 

DUAL 

320 

DUAL 

330 

DUAL 

410 

DUAL 

420 

DUAL 

430 

DUAL 

440 

DUAL 

450 

DUAL 

460 

DUAL 

470 

DUAL 

480 

DUAL 

490 

DUAL 

520 

DUAL 

530 
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Z50 D = ZI  (3)  -TIRTOR*  (PHI  + PHIR) 
Z6  OD=Z  I ( 4)  +TIRTOR*  (PHI  + PHIR) 


DUAL  540 
DUAL  550 


RWZD3 
RWZD4 
RHZD5 
RWZDb 
F3RID 
F4RID 
F5ROD 
F6  ROD 


RH 

RH 

RU 

RH 


Z3ID 
Z4  ID 
Z50D 
Z60D 


AKTI  (3)  *R  HZ  D3 
AKTI  (4)  *RHZD4 
AKTI  (3)  *R  HZD5 
AKTI  (4)  * R HZ  D6 
IF  (RHZD3  .LE.  0. ) F3RID 
IF  (RWZD4.LE.  0.  ) F4RID 
IF  (RHZD5.LE.  0.)  F5ROD 
IF  (RHZD6  .LE.  0.  ) F6ROD 


0. 

0. 

0. 

0. 


U3ID  = U I (3)  -TIRTOR*R 

DUAL 

640 

U4ID=UI  (4)  ♦TIRTOR*R 

DUAL 

650 

U50 D=U I (3)  +TIRTOR*R 

DUAL 

660 

U60  D=UI  (4)  -TIRTOR*R 

DUAL 

670 

V3ID  = VBRZRP  + Z3IE*PEHIR 

DUAL 

680 

V4  ID  = VBRZRP  ♦ Z41D*PPUI  R 

DUAL 

690 

V50D  = VBRZRP  + Z50E*PPHIR 

DUAL 

700 

V60D  = VBRZRP  + Z60D*PPHIR 

DUAL 

710 

W3ID  = W 1(3)  ♦TIRTOR*PPHIR 

DUAL 

720 

H4ID=HI  (4)  -TIRTOR*PPHIR 

DUAL 

730 

W50D=WI  (3)  -TIRTOR*PPHIB 

DUAL 

740 

W60  D = H 1(4)  +TIRTOR*PPHIB 

DUAL 

750 

UG3ID  = U3  ID  + THE*H3IE 

DUAL 

760 

UG4ID  = U4 ID  ♦ THE*  H4ID 

DUAL 

770 

UG50D  = U50D  * THE*H5CE 

DUAL 

780 

UG60D  = U60D  + THE*  H60  E 

DUAL 

790 

VG3ID  = V3 ID  - PHI*W3ID 

DUAL 

800 

VG4ID  = V4ID  - PH  I*H  4IE 

DUAL 

810 

VG50D  = V50D  - PHI*W50D 

DUAL 

820 

VG60D  = V60D  - PHI*K60D 

DUAL 

830 

UG3IDP  = UG3ID*C0SPSI  (3)  + VG 3 1 D*S  INPSI  (3 ) 

DUAL 

840 

UG4IDP  = UG4ID*COSPSI  (4)  VG  41  D*SI  NPSI  (4  ) 

DUAL 

850 

UG50DP  = UG50D*C0SPSI  (3)  + VG 50E*S INP SI  (3  ) 

DUAL 

860 

UG60DP  = UG60D*C0SPSI  (4)  + VG  60  D*SI  NPSI  (4 ) 

DUAL 

870 

S3ID  = 1.  ♦ (ARPS3*Z3IE)/UG3I  DP 

DUAL 

880 

IF  (S3ID. LT.  (-1. ) . OR.S3ID. GT. 1 .)  S3ID  = SI GN ( 1 . , S3 ID) 
IF(S3ID.LE. 0.0001)  S3ID=0. 

DUAL 

890 

S4ID  = 1.  + (ARPS4*Z4II)/UG4IDP 

DUAL 

900 

IF  (S4ID.LT  . (-1 . ) .OR  . S4ID.GT.1  .)  S4ID=  SI  GN  ( 1 . ,S4ID) 
IF(S4ID.LE. 0.0001)  S4ID=0. 

DUAL 

910 

S50D  = 1.  *■  (ARPS3*Z5CI)/UG50EP 

DUAL 

920 

IF  (S50D.LT.  (-1  .)  .OR  . S50D.GT.1  .)  S50D=  SIGN  (1 . ,S50D) 
IF (S50D. LE. 0. 0001)  S5CE=0. 

DUAL 

930 

S60D  = 1.  + (ARPS4*Z60r)/UG60DP 

DUAL 

940 

IF  (S60D.LT.  (-1.)  .OR. S6CD.GT.1  .)  S60D=  SIGN  (1 . ,S60D) 

DUAL 

950 

IF  (S60D. LE. 0.0001)  S6OE=0. 

CF3ID  = SEP  (3)  + S3ID*SL  (3) 

CF4ID  = SEP  (4)  ♦ S4 I E*SL  (4) 

CF50D  = SEP  (3)  + S50D*SL  (3) 

CF60D  = SEP  (4)  + S6CD*SL(4) 

1.  ) GO  TO  5 CO 


IF  (PARAM  (209) 


AHUI3 
AMUI4 
AM  UI5 
AMUI6 
GO  TO 


= (RB3 
= (RB3 
= (R  B 3 
= (R  B 3 
510 


•f 
+• 

♦ 

EQ, 

FB  1*F3RID 
RBI*  F4RIE 
RB 1 * F 5ROD 
RB 1*  F 6 ROD 


♦ RB4*F3RID*F3  RID)  * SNI(3) 
+ RB4*F4RID*F4RIE)  * SNI(4) 

♦ EB4*F5ROD*F5ROD)  * SNI  (3) 

♦ EB4*F6ROD*F6  ROC)  * SNI(4) 


DUAL1 000 
DUAL  1010 
DUAL1 020 
DUAL  1030 
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500  CONTINUE 

AMUI3  = XI NT  (F3RID,FRTEL,B3TBL,7)  * SN I ( 3) 
AHUI4  = XINT  (F4RID,FRTBL,B3TBI,7)  *SNI(4) 
AMUI5  = XI NT  (F5ROD,FETEL,B3TBL,7)*SNI  (3) 
AMUI6  = XI  NT  (F6ROD,FRTEL,B3TBL,7)  * SN I ( 4) 
510  CONTINUE 

XX3=  ABS ( AMUI 3*G  BI  (3) ) 

XX4  = ABS  (AMUI 4*G  BI  (4) ) 

XX 5=  ABS ( AH U I5*GB I (3)  ) 

XX6=  ABS  ( AHUI6*GBI  (4)  ) 


SIGN B3  = SIGN  (1. ,GBI  (3) ) 
SIGNB4  = SIGN(1.,GBI  (4)  ) 


XXX4=  (XX4- 


FYU5  = F5BOD*  (-PHI-CF5CD*S: 

FYU6  = F6ROD* (-PHI-CF6CC*S: 

FSI3  = F3R ID*XXX3 
FS 14  = F4RID*XXX4 
FSI5  = F5ROD*XXX5 
FSI6  = F6ROD*XXX6 

FXUI  (3)  = F3R  ID*  (THE-CF3ID*C0SPSI  (3)  - 
FXUI  (4)  = F4RI  D*  (T H E- CF4  IC*COSPS  I (4)  - 
FXU5  = F5ROD*  (THE-C  F5CD+COSFSI  (3)  - 

FXU6  = F6ROD*  (THE-C  F60D*C0SPSI  (4)  - 

PHICG3=PHICG4=PHICG5=FHICG6=0.0 
ALTQ3P  = ARK1*F3RID*FSI3*SIGN  <1  .,FSI3)  *FSI3 *FSI3*ARK2 
1 ♦ SIGN  ( 1.  , PHI  CGI  (3)  ) *F3RID*SCF'I  (ABS  (PHICGI  (3)  ) ) *ARK3 

ALTQ4P=ARK1*F4RID*FSI4*SIGN  (1  . , FSI4)  *FSI4*FSI4*ARK2 
1 + SIGN  (1.  , PHICGI  (4)  ) *F4RID*SQET  (ABS  (PHICGI  (4)  ) ) ♦ AR  K3 

ALTQ5=ARK1*F5R0D*FSI5  + SIGN  (1.  ,FSI5)  *FSI5*  FSI5*ARK2 
1 +SIGN  (1.  ,P  HICGI  (3)  ) *F5ROD*SCRT  ( ABS  ( PH  IC  GI  (3)  ) ) * A R K 3 
ALTQ6=  A R K1 ♦ F6ROD* FS 16 ♦ SIGN  ( 1 . , FSI6) *FSI6*  FSI6*ARK2 
1 + SIGN  (1.  , PHICGI  (4)  ) *F6ROD*SCRT  (ABS  (PHICGI  (4)  ) ) ♦ AR  K 3 

ALTQ(3)  = (ALTQ3P+ALTQ5) 

ALTQ  (4 ) = (ALTQ4P  + ALTQ6) 

OTH3P=F3RID*ORC 1+FSI3 

1 + (ORC2*FSI3*ABS  (PHICGI  (3)  ) +OBC  3*P  HICGI  (3)  ) *F3RID 
OTM4P=F4RID*ORCl*FSI4 

1 ♦ (ORC2*FSI4*ABS  (PHICGI  (4)  ) *0  EC  3*P H ICGI  (4  ) ) *F4RID 
0TM5=  F5R0D*0RC1*FS 15 

1 ♦ (ORC2*FSI5*ABS  (PHICGI  (3)  ) +0  EC  3*P  HICGI  (3  ) ) *F5R0D 
0TM6  = F6 R0D*0RC1 *FS 16 

1 * (0RC2*FSI6*ABS  (PHICGI  (4)  ) +0RC3*P HICGI  (4)  ) *F6R0D 
OT  M ( 3)  = (OTM3P+OTM5) 

OTM  (4)  = (0TM4P  + 0TH6) 

RETURN 

END 


SINPSI (3) *XXX3) 
SINPSI  (4)  * X XX4) 
SINPSI (3) *XXX5  ) 
SINPSI  (4)  *XXX6) 


DUAL  1040 
DUAL1 050 
DUAL  1 060 
DUAL1 070 


(4)*PARAM  (207) 

DUALl 080 

(3 ) *P  AR AM  (207) 

DUALl 090 
DUALl 100 
DUALl  110 

♦SIGN  B3 

DUALl 120 

♦SIGN  B4 

DUALl 130 

♦SIGN  B3 

DUAL  1 140 

♦SIGN  B4 

DUALl 150 

FSI  (3  ) + 

COSPSI  (3)  *X XX 3) 

DUAL  1 160 

PSI  (4)  ♦ 

COSPSI  (4)  * X XX4) 

DUALl  170 

SI  (3)  ♦ 

COSPSI  ( 3)  *XXX5) 

DUALl  180 

SI  (4)  ♦ 

COSPSI  (4)  *X  XX6) 

DUAL  1 190 

DUAL1 200 
DUAL1 210 
DUAL  1 220 
DUAL1 230 
DUAL  1 240 
DUALl 250 
DUAL  1 260 
DUALl 270 
DUALl 280 
DUAL  1 290 

DUALl 300 

DUALl 310 

DUAL  1 320 

DUALl 330 
DUALl 340 
DUAL  1 350 

DUALl 360 

DUALl 370 

DUALl 380 

DUAL  1 390 
DUALl 400 
DUAL  1 4 1 0 
DUALl 420 
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H-2.1.11  AERODY 


Presented  here  is  the  Fortran  listing  for  the  aerody- 
- namic  subprogram.  Calculation  of  the  aerodynamic  forces  and  mo- 
ments is  performed  in  this  subprogram. 


C SUBROUTINE  AERODY  & 9 

SUBROUTINE  AERODY  AERO 

Q **  * * **********+********‘M'*********************#*****************#***^  ERO 

C THIS  SUBPROGRAM  CALCULATES  THE  AERODYNAMIC  FORCES  AND  MOMENTS  AERO 

C WHICH  ACT  DIRECTLY  ON  THE  SPRUNG  MASS  ‘ AERO 

C***  ********************************************************************  aero 
COMMON/SP7BLK/N  1 ,N2,  IPCT  (1  20)  ,IPOTAD(120)  ,PAHAM(400)  AERO 

COMMON/VARS/P,Q,R,U, V, W, X, Y , Z ,T BE , PHI , P SI  AERO 

COM MON/ A ER VAR/UR, VR, WR  ,PBAR , QEAR,RBAR, V CW , ALP H AC , TA UC , Q A, Q A SF , AERO 

1 CXC ,C YC,CZC,CLC  ,CMC, CNC , DELCXC  AERO 

COMMON/AERO/SFXS ,SFYS,SFZS, SN  T HES, SNPHI S, SNPSIS, APLUSB , IAEBO  AERO 

COMMON/AROTBS/  TA  U ( 4 0 ) ,C  X ( 4 0)  ,C  Y (4  0)  r CZ  (4  0)  , CL  (40)  , AERO 

1CM  (40)  , CN  (4  0)  , ALPHA  (40)  ,DELCX  (40)  , NAERO,  NDCX, 

1 XWP  (20)  , VYWTB  (20)  , NWP 

EQUIVALENCE  AERO 

1 (PAR AM  (142), VYW)  , (PARAM  (143)  , OM  XW)  , AERO 

1 (PARAM  (144)  ,OMZW)  , (PARAM  (1  45)  ,RHOA)  , (PARAM  (146)  ,CYP)  , AERO 

1 (PARAM  (147)  ,CYR)  , (PARAM  (148)  ,CZAL)  , (PARAM  (149)  ,CZQ)  , AERO 

1 (PARAM(150)  , CLP)  , (PARAM  (151)  ,CLR)  , (PARAM  (152)  ,CNAL)  , AERO 

1 (PARAM  (153)  ,CMQ)  , (PARAM  (154)  ,CNP)  , (PARAM  (155)  , CNR)  , AERO 

1 (PARAM  (1 56)  ,SF)  , (PAR AM  ( 1 57 ) , VL ) , (P  ARAM  (1  58)  ,RWV)  AERO 

EQUIVALENCE  (PA  R A M (06)  ,A)  , ( P A RAM  ( 07)  , B)  , (PARAM  (7  1)  , HCG)  AERO 

WBL=  A*  B AERO 

DCG=A-WBL/2.  AERO 

C CROSS  WIND  DISTURBANCE  AERO 

VYH=0.0  AERO 

IF  ( (X.LT.XWP  (1)  ) .OR  . (X.GT.  XKP  (NWP)  ) )GO  TO  100  AERO 

VYW=XINT  (X,  XWP,VYWTE,  NWP)  AERO 

100  CONTINUE  AERO 

UR  = U - VYW*SIN  (PSI)  AERO 

VR  = V - VYW*CO S (PSI)  AERO 

WR  = W AERO 

PBAR  = (P  - OMXW+COS  (PSI)  ♦ OMZW+THE)*  APLUSB/UR  AERO 

QBAR  = (Q  ♦ OMXW  + SI N (PSI)  - OMZW*PHI)*  APIUSB/UR  AERO 

RBAR  = (R  - OMZW)*  APLUSB/UB  AERO 

VCW  = SQR  T ( UR  * UR  ♦ VR*VR  *■  WR*WR)  AERO 

ALPHAC  = ATAN (WR/UR)  AERO 


TA  UC  = ARSIN  (VR/VCW) 

IF  (UR.  GE.O  . ) GO  TO  110 
IF  (VR)  120,121,122 

120  TAUC  = TAUC  -1.5708 
GO  TO  110 

12 1 TAUC  = - 3. 14159 
GO  TO  110 

122  TAUC  = TAUC  ♦ 1 . 5708 
110  CONTINUE 


QA 

= (RHOA 

* VC 

W*VCW)  /2 

• 

CXC 

= 

XINT  (TAUC 

,T  AU 

,cx. 

NAER 

C) 

CYC 

= 

XINT  (TAUC 

, TA  U 

,CY, 

NAER 

C) 

czc 

= 

XINT  (TAUC 

,T  AU 

,cz. 

NAERC) 

CLC 

— 

XINT  (TAUC 

,TA0 

f CL, 

NAER 

C) 

CMC 

= 

XINT (TAUC 

,TA  U 

,CM, 

NAER 

C) 
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CNC  = XI NT  (T  AUC  ,T  AU  , CN , N AER  C) 


DELCXC  = XINT  (ALPHAC  , ALPHA  , DELCX,NDCX) 

AERO 

460 

AERODYNAMIC  FORCES  AND  MOMENTS 

AERO 

470 

QASF  = QA*SF 

AERO 

480 

SFXS  = (CXC  * DELCXC)  * QASF 

AERO 

490 

SFYS  = (CYC  + CYP*PBAR  ♦ CYR*REAR)  * QASF 

AERO 

510 

SFZS  = (CZC  ♦ CZAL+ALPRAC  + CZQ*QB  AR)  * QASF 

AERO 

520 

SNPHIS=  ( VL*  CLC*  HCG*  C Y C ) +QASF 

SN TH  ES=  (VL*CMC-DCG*CZC-HCG*CXC)  +QASF 

AERO 

540 

SNPSIS=  ( VL  VCNC+  DCG*C  YC ) *QASF 

AERO 

560 

RETURN 

AERO 

570 

END 

AERO 

580 
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non  on 


H-2 .1.12  STRBRK 


Presented  here  is  the  Fortran  listing  for  the  steer  and 
rake  subprogram.  Calculation  of  the  steering  and  braking  com- 
mands is  performed  in  this  subprogram. 

C SUBROUTINE  STRBRK  STRB 

SUBROUTINE  STRBRK  STRB 

C4^*****4^**************************************************************3TRQ 

C STEERING  AND  BRAKING  COMMANDS  CALCULATED  STRB 

C***  *********  *************  ******  **************************************** STRB 

STRB 
STRB 
STRB 
STRB 
STRB 
STRB 
STRB 
STRB 
STRB 
STRB 


COM MON/ PAUL/  D1,D2,D3,E4,SFYU,TMP, SNPHIU, SNTHEU , SN PSIU , 

1QDT,PDT,  RDT  , UDT  , VDT  , KDT , PHI DT  ,TH EDT , PSI DT, XDT , YDT , ZDT , 

1 AKK 1 , AK  K2 , THS1,THS2, 

1AMT1  ,AMT2,SN,SFXU,BTVCT,ETAX,  ETAL, 

1 ZIP  (4)  , PHII  (4)  , 

1 U1I  (4)  , BAMI  (4)  , MUP  (4)  , SAMI  (4)  ,FI  (4)  ,FXUI  (4)  ,FYUI  (4)  ,GI  (4)  , 

1 ALFI  (4)  ,BETIP  (4)  ,BETIBF  (4)  , SLIPI  (4)  f AM II  (4)  , AM 2 1 (4)  , UOI  (4) 

1 FCI  (4)  , F C I M A X (4)  , F S I (4)  , 

1 ABI  (4)  ,BETAI  (4)  , AMUI  (4)  , SNI  (4)  , RMI  (4)  , GBI  (4)  ,FRIBR  (4)  , 

1 RWZI  (4)  , ZI  (4)  ,FRI  (4)  , UI  (4)  , VI  (4)  , V I (4)  , U GI  (4 ) , 


1 


VGI  (4)  , SIN  PS  I (4)  , PS  II  (4)  ,COSPSI  (4)  ,UGIP  (4)  ,PHICGI(4)  ,CVI  (4)  STRB 


1 , ALTQ  (4)  ,0 TM  (4)  , SALTQ,FCTM , ROTH  STRB 

1,APl,AP2,AP3,AP4,AR  1 , AE2, AR3, A R 4, ANT1 1 , ANTI2 , ANTI3 , ANT  1 4 STRB 

1,DLIS(4),ZIMX(4),FBS1,FES2,FBS3,FBS4  STRB 

1 ,P  HIDM  X STRB 

COMMON/VAR S/P,Q,R,U , V , W , X , Y , Z , T BE, PHI , P SI 

COMMON/THINGS/TMA XI , TM A X2 , T MA X3 ,TQ RMA X , TQ F MAX , PS IM AX , ON ER  STRB 

COMMON/D EL S/D EL SWC  STRB 

COMMON/UVW/VC, UIN  STRB 

COMMON/ZILCH/TQM A XF ,TQM AXR, AKTQF, AKTQR , TQ DRF, TQDRR , IDRSW  STRB 

COMMON/T IMBL  K/J  JTIM  E , TI ME , DT  STRB 

COMMON/S  P7  BLK/N  1 ,N2  , IFCT  (120)  , I POT  AD  (12  0)  , PAR  AM  (40  0)  STRB 

COMMON /NEWER/TIME 25, TIME  10,  PSI 5 , PH IM AX , DS WM AX  STRB 

COMMON/STRFON/  N S T,  STB  TM  (2  0 ) , STEER  (20) 

CO  MM  ON/S  PI  NS/ ARPS  DT  ( 4 ) , PF,  P F R , A V RP  S (4)  , AVRPSD  (4)  , 

1 ARPSD  (4)  ,ARPSDH  (4)  ,HDOT  (4) 

CO  HMON/B  BAK  E/TQ  F BL, TQR  EL 

CO  MM ON /PRES S/PR  F , PLF,PRR,PLR 

COMMON/C  NT ROL/  EPS  DSW , EPSTQR , E PDS WI, EPTQRI, ALAMDA 
COMMON/TOM/  COSABG(12)  ,COABGH(12)  ,COS  AC  (4)  , COSBC  (4)  , COS  AR  (4)  , 

1COSBR  (4)  ,COSGR  (4)  ,PSIP  (4)  , HCOSG  (4)  , T (9)  ,XYZDOT  (3) 

2 , SINPHI  (4)  ,CO  SP  HI  (4) 

DATA  RAD/0. 1 745329E-1/  STRB 

EQUIVALENCE  (PARAM  (118)  ,CS)  , (PAEAM  (123)  ,DSH)  , (PAR  AM  (12  1)  , PF  L)  , STRB 

1 (PARAM  (1  17)  ,CGAM)  , (PARAM  (55)  ,PTBR)  , (PARAM  (6  2)  ,ARFBR)  , STRB 

1 (PARAM  (122)  „TTD)  , (PARAM  (124)  , TSW)  , (PARAM  (1  1 5)  ,TST)  , STRB 

1 (PARAM  (119) ,TQRER)  , (PAR  AM  (233)  ,ALAMBD)  STRB 

EQUIVALENCE  (TQFBR, PARAM  (120)  ) , (DS  HCM  , PARAM  (114)  ) STRB 

EQUIVALENCE  (P AR AM  ( 1 08) , FR EQ)  . STRB 

PARAM  (218)  > .5,  DRIVE  TORQUE  AND  STEERING  COMMANDS  ARE 
GENERATED  FOR  STEADY  STATE  HINDS 
IF  (PARAM  (218)  .GT.  0.  5)  GO  TO  8999 
KELSEY-HAYES  ANTI - LOCK  SYSTEM 
I ALS  = 0,  DISABLE 
= 1,  ENABLE 
IALS=PAR AM  (23)  +0. 5 

DSLM=PARAM  (1  14)  /PARAM  (116)  STRB 

XTMP=PABAM  (121) /PARAM  (192)  STRB 
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IF  (P  AH  AH  (126)  .NE.O.O)GC  TO  4321 
IF (TIME. GT.TST) GO  TO  6000 
DELSWC=0.0 
GO  TO  7000 

6000  DELSWC=  (TINE-TST)  *DSLH 

'IF  (AB3  (DELSWC)  .GT.DSWCM)  DELSWC=DSWCM*SIGN  ( 1 - 0 # DJ 
IF  (PARAH  (128)  . EQ.  3.  0)  GC  TO  7000 

IF  ( TIME.GT. 4. 5 ) DELSW C= DS WCM * ( 5. 5 -TIM E) * SIGN  ( 1 . 
7000  DEL SWC=DELSWC*RAD 
PF  = 0 . 0 

IF  (TIHE.LT.TTD)  GO  TO  4444 
PF=  (TIHE-CGAM)  *XTMP 
IF  (PARAH  (128).  EQ.  1. 0)  GC  TO  2223 
IF  (PARAM  (128)  .EQ.3.  0)GC  TO  2223 
2222  IF (PF.GT.PFL) PF=PFL 

IF  (TIME.  LT.CGAH)  PF=0.0 
PFR=  (TIH  E-CS)  *XTMP 

IF  ( TIME.GT.CS  ) PF=PF*  (CS-TIHE)  /10. 

IF(TIME.LT.CS)PFR=0.0 

IF (PFR. GT. PFL)  PFR=P  F L 

IF  ( TIME.GT.CS  ) PFR=PF  R*  (CS  -TIM  E)  / 1 0 . 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTION: 


INPUTS  : 


FF-FRONT  WHEEL  ERAKE  TORQUE 
BRAKE  LINE  PRESSURE 


AS  A FUNCTION 


OUTPUTS: 


FUNCTION 


INPUTS  : 


OUTPUT: 


PFR-FRONT  WHEEL  BRAKE  LINE  PRESSURE  (PSI) 
PBF-BPAKE  LINE  PR ESS  UR E (PSI ) , ABSISSA  USED 
INTERPOLATION  SUBROUTINE 

TQBF- FRO  NT  WHEEL  BRAKE  TORQUE  (INCH-POUNDS) 
IN  LINEAR  INTEREOLATION  SUBROUTINE 

FF-INTERPOLATEE  FRONT  WHEEL  BRAKE  TORQUE  AS 
CF  FRONT  ERAKE  LINE  PRESSURE 


LINE  PRESSURE 

PFR-BRAKE  LINE  ERESSURE  (PSI  ) 

PBR-ERAKE  LINE  PRESSURE  (PS  I)  , ABSI  SSA 


OF  REAR  ERAKE  LINE  PRESSURE 


IF  (IALS.  EQ.  1)  CALL  KHAIS 
TQFBR  =-FF  (PF) 

TQRBR  = -FR  (PFR  ) 

GO  TO  2345 

2223  PF=  (TIME-CGAM)  *XTMP 
IF  (P  F.  GT.PFL)  PF=PFL 
PF R=  (TIME- CG AM)  *XTMP 
IF (PFR. GT.  PFL) P FR  = P FL 
IF  (IALS.EQ.  1)  CALL  KHAIS 
TQFBR  =-FF  (PF) 

TQRBR  = -FR (PFR) 

IF  (TIM  E.  LE.CGAH)  TQFBR  = C. 

IF (TIME. LE.  CG AM ) TQR ER=0. 

GO  TO  2 3 45 

: DRIVE  TORQUE  CALCULATIONS 


STRB 

390 

STEB 

400 

STRB 

410 

STRB 

420 

STRB 

430 

WC) 

STRB 

440 

STRB 

450 

DELSWC) 

STRB 

460 

STRB 

470 

STRB 

480 

STRB 

490 

STRB 

500 

STRB 

510 

STRB 

520 

STRB 

530 

STRB 

540 

STRB 

550 

STRB 

560 

STRB 

570 

STRB 

580 

STRB 

590 

CSTRB 

600 

F FRONT 

CSTRB 

610 

CSTRB 

620 

CSTRB 

630 

CSTRB 

640 

IN  LINEAR 

CSTRB 

650 

CSTRB 

660 

, ORDINATE  USED 

CSTRB 

670 

CSTRB 

680 

CSTRB 

690 

A FUNCTION 

CSTRB 

700 

CSTRB 

710 

CSTRB 

720 

CSTRB 

740 

REAR  BRAKE 

CSTRB 

750 

CSTRB 

760 

CSTRB 

770 

CSTRB 

780 

CSTRB 

790 

ORDINATE 

CSTRB 

800 

CSTRB 

810 

A FUNCTION 

CSTRB 

820 

CSTRB 

830 

CSTRB 

840 

STRB 

730 

STRB 

850 

STRB 

860 

STRB 

870 

STRB 

880 

STRB 

890 

STRB 

900 

STRB 

910 

STRB 

920 

STRB 

930 

STRB 

940 

STRB 

950 

STRB 

960 

H-71 


n o 


4444 


5555 


4321 


8000 


2345 


C 


100 


8999 


C 


I DR  S W =0  # REAR  WHEEL  DRIVE 

STRB  970 

=1,  FOUR  WHEEL  DRIVE 

STRB  980 

TQ  FBR=  0.0 

STRB  990 

TQRBR  = 0.0 

STRB1 000 

IF  (IDRSW.NE.  1)  GO  TO  5555 

STRB 1010 

TQDRF=  AKTQF*  (VC-U) 

STRB 1 020 

IF  (TQDRF.GE.  TQM  AXF)  TQERF=TQM  AXF 

STRB1 030 

TQFBR  = 0.5*  (1.-ALAMBD)  *ARFER*TQDRF 

STRB1 040 

TQDR  R=  AKTQH*  (VC-U) 

STRB1 050 

IF  (TQDRR  .GE.TQMAXR)  TQDRR=TQM  AX  R 

STRB1 060 

TQRBR  = 0.  5*ALA  MBD*TQDRR 

STRB 1070 

GO  TO  2345 

STRB 1 080 

CONTINUE 

STRB1 090 

DELS  WC=S IN  (6.28*FREQ*TIME)  *DSW*RAD 

STRB 1 100 

IF  (TIME.GT.  0.5/FREQ)  DEISWC  = SI  N ( 6.  2 8 *FRE  Q*TIM  E)  *P  AR  AM  ( 4 6)  *R  A D 

IF (TIME. GT. 1 ./FREQ) DELSWC =0.0 

STRB 1 110 

IF  ( (TIME.GT.  0.  5/FREQ)  . AND.  (PARAM  (129)  .GT.  5.)  ) DELSWC  = 

o 

• 

o 

STRB 1 120 

PF=0 . 0 

STRB1 130 

TQRBR=0 . 0 

STRB 1 140 

TQ  FBR  = 0 . C 

IF  (TIME. LE. TST)  GO  TO  8000 
DELSWC= (TIME-TST) *DSLM 

IF  (ABS  (DELSWC)  . GT.  DSWCM)  DELS  WC=DS  WCM  * S IG  N (1 .0,  DELSWC) 
DSLM  D=P  ARAM  (114)/PARAM  (44) 

IF  (TIME.  GT.  PAR  AM  (4  3)  ) DELSWC=  (TI  ME  -P  AR  AM  (45)  ) * DSLMD 
IF  (TIME.GT.  PARAM  (45)  ) CELSWC=0. 0 
DELSWC=D£LSWC*RAD 
CONTINUE 

STRB 1 150 

IF  (P  AR  AM  (1  25)  .EQ.O.  0)  GC  TO  2345 

STRB 1 160 

IF  (TIME. LE. PARAM  (278)  .CR. TIME.GT. PARAM (279) ) GO  TO  2345 

STRB1 170 

PF=(  TIME -PAR  AM  (278))  *26000.0 

STRB 1 180 

IF  (PF. GT.PFL) PF  = P FL 
PFR=  (TIME-PARAM  (278)  ) *26000.0 
IF  (P  FR  . GT.  PFL)  PFR=PE1 
IF  (IALS. EQ. 1)  CALL  KHAIS 

STRB 1 190 

TQFBR  = - FF  (PF) 
TQRBR  = -FR  (PFR) 

STRB 1 200 

CONTINUE 

STRB1 220 

IF  (PAR  AM  (193)  .NE.  0. 0)  DELSWC  = 0 .0174  532  9*  (PARAM  (194)  *Y 

+PARAM (195) STRB1230 

* YDT) 

STRB1 240 

IF  PRM  (275)  IS  1 STEER  PROFIIE  DATA  IS  USED 
IF  (PAR  AM  (275)  .LE.O.  ) GO  TO  IOC 
DELSWC  = XINT  (TIME,  STRTM,  STEER,  NST) 

DELSWC  = DELSWC  *RAD 
CONTINUE 

IF  (IALS.  EQ.  0)  GO  TO  200 
TQFBR=-FF  (PRF)  *P ARAM  (238) 

TQ  FBL=-  F F (PLF)  *PARA  M (239) 

TQRBR=-  FR  (PRR)  *PA  RA  M (240) 

TQRBL=-FR(PLR)  * P AR A M (241) 

IF  (TIME. LE.CGAM) TQFBR=0.0 
IF  (TIME. LE. CGAM ) TQFEL=0. 0 
IF  (TIM  E.  LE.CGAM)  TQRBR=0. 0 
IF (TIME. LE. CGAM) TQREL=0.0 
GO  TO  300 
CONTIN  UE 

EPSDSW  = XYZDOT  (2) *COS  (ALAMEA)  - X YZDOT  ( 1 ) * SIN (ALA M DA) 
EPSTQR  = VC-  (XYZDOT  (1)  *COS  (ALAMCA)  + X Y ZDOT  (2)  *SI  N ( AL  AM  DA)  ) 
VC  IS  INITIAL  VELOCITY  INPUT  WITH  PARAM  112  IN  MPH 
EPDSWI  = EPDSWI  + E PSD  S W*D T 
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EPTQRI  = EPTQRI  + EPS1QB*DT 

DELSWC=-  (PARAM  (217)  *EP£SWI  ♦ P A RAM  ( 19  4)  *P  SIDT  + PARAM  (1  95)  * PSI 
2 ♦ PARAM  (1  93)  *EPSDSW)  *FAD 
TQRBR  = (PARAM  (21  5)  *EPSTQR  + PARAM  (216)  * EPTQRI) 

TQ  FBR  = 0 . 

200  CONTINUE 

TQFBR  = TQFBR*P AR AM (238) 

TQFBL=TQ  FBR*  PAR A M (239) 

TQRBR  = TQRBR+PARAM  (240) 

TQRBL=TQRBR*PAR  AM  (241) 

300  CONTINUE 

TEBPE=  ABS (DELS H C/RAD) 

IF(TEMPE.GT.DSWMAX)  D S W M A X=TEM  PE 
TEHPE=ABS  (TQFBR) 

IF  (TEMPE.GT.  TQFMAX)  TQF  MAX=TEM  PE 
TEHPE=ABS (TQRBR) 

IF  (TEMPE.GT. TQR MAX) TQR  M AX=T  EM  P E 

RETURN 

END 


STRB1 250 
STRB1 260 
STRB1 290 
STRB1 300 
STRB1270 
STRB1 280 
STRB1 310 
STRB1 320 
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H-2.1.13  CVCALC 


Presented  here  is  the  Fortran  listing  for  the  compari- 
son variable  subprogram.  This  subprogram  collects  data  for  com- 
parison variable  calculation. 


C SUBROUTINE  CVCALC  3031 

SUBROUTINE  CVCALC  CVCA 

C*************  **  ************************************************  ********CVCA 

C THIS  SUBROUTINE  COLLECTS  DATA  FCR  COMPARISON  VARIABLE  CALCULATION  CVCA 

C***** ******************************************************* ***********cvca 

COMMON/EXTRA/  P SI 3S  , P SI 4S , B T V , A YSTI  CVCA 

COM  MON/NEWER/T IME25,TIME10, PS  15, PH IM AX, DSWMAX  CVCA 

COMMON/S  P7  BLK/N  1 ,N2,  IPCT  (1  20)  , IPOTAD  (120)  , PAR  AM  (400)  CVCA 

COM MON /T IM  BLK/JJTI ME ,1IME,DI  CVCA 

COMMON/VARS/P, Q,R,U , V , W , X , Y , Z , T HE, PHI , PSI  CVCA 

COMMON/COM  VAR/  AXAVE,CDVRAT,BETDMX , CURT  BP ,TI MDEC , J DMP, DELST  R, DEL,  CVCA 
1 AXI,CURVAV,AEbTV,AYMAX,RMAX,DELBET,DELPSI,BETAMX,  CVCA 

1 TI  MB  HP  ,GETD  L ,TIMIN5  , TSTEP  , IVHTP  CVCA 

COMMON/UVW/VC,UIN  CVCA 

COMMON/PAUL/  D 1 , D2 , D 3 , D 4 , SF YU  , T KP , SN PH I U , SNTH EU , S N PS IU , CVCA 

1 QDT, PDT , RDT  ,0DT ,V DT , NET, PHI CT ,THEDT,PSI DT, XDT , YDT ,ZDT , CVCA 

1 AKK1 , AKK2 , THS1,THS2,  CVCA 

1AMT1 ,AMT2,SN ,SFXU,BTVDI,ETAX, ETAL,  CVCA 

1 ZIP  (4)  , PH  1 1 (4)  , CVCA 

1 UlI(4),BAMI(4)  ,M  UP  (4), SAMI  (4), FI  (4)  ,FXUI  (4)  ,FYUI  (4)  ,GI  (4)  , CVCA 

1 ALFI  (4)  , BET  IP  (4)  , BET  IB  5 (4)  , SLIP  I (4)  ,AM1  I (4)  ,AM2I  (4)  , UOI  (4)  ,CVCA 

1 FCI  (4)  ,FCIMA  X (4)  ,FSI  (4)  , CVCA 

1 ABI  (4)  ,BETAI  (4)  ,AMUI  (4)  ,SNI  (4)  ,RMI  (4)  ,GBI  (4)  ,FRIER  (4)  , CVCA 

1 RWZI  (4)  ,ZI  (4)  , FRI  (4)  , U I ( 4)  , VI  ( 4)  , V I ( 4)  , UGI  (4)  , CVCA 

1 VGI  (4)  , SIN  PS  I (4)  ,PSII  (4)  ,COSPSI  (4)  ,UGIP  (4)  , PHICGI  (4)  ,CVI  (4)  CVCA 

1 , ALTQ  (4)  ,OTM  (4)  , SALTQ,  f CTM  , BO TM  CVCA 

1 ,AP1 ,AP2,AP3, AP4, ABI , AR2, AR3, AR4, A NTI1, AN TI 2, ANTI 3 , ANTI 4 CVCA 

1 , DLIS  (4)  , Z IM  X (4)  , FB  S 1 ,FBS2 ,FBS3  ,FBS4  CVCA 

1 , PHI DM  X CVCA 

COM MON /THIN GS/TMA  XI , TMAX2, TMA  X3 ,TQ RM AX , TQ FMAX , PSIM AX ,ON ER  CVCA 

BE  AL*4  MPHIPS  CVCA 

DATA  MPHIPS/17.6/  CVCA 

DATA  RAD/0. 1745329E-1/  CVCA 

EQUIVALENCE  (PARAM(123),DSW),  (PARAM  (1 1 5 ) , TST)  , (PAR  AH  (1  17)  , CGAM)  CVCA 
EQUIVALENCE  (P  A R AM  ( 1 08 ) , F RE  Q)  CVCA 

C LONGITUDINAL  AND  LATERAL  ACCELERATION  CALCULATION  CVCA 

ETAX  = (UDT-V*R+W*Q)/386.4  CVCA 

ETAL  = (VDT+R*U-W*P)/386.4  CVCA 

BTV  = ATAN  (V/U)  CVCA 

BTVDT  = (U * V DT- V*  UDT ) / (U*U)  CVCA 

ONER  = ( R+ BT VDT ) /SQ RT  (U**2  + V**2)  CVCA 

C COMPARISON  VARIABLE  DATA  COLLECTION  CVCA 

IF  (IVHTP. GT.  2)  GO  TO  402  CVCA 

COMPARISON  VARIABLES  FCR  VHTP  # 1 CVCA 

AXAVE  = AVERAGE  LONGITUDINAL  DECELERATION  CVCA 

IF  (U.GT.  (UIN-88  . ) ) GO  TO  400  CVCA 

AXI  = A X I + ETAX  CVCA 

GO  TO  401  CVCA 

400  TIMIN5  = TIME  CVCA 

401  CONTINUE  CVCA 

TIM  DEC  = TIME  - TIMIN5  CVCA 

402  CONTINUE  CVCA 

IF  (IVHTP  .N  E. 2)  GO  TO  412  CVCA 
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260 
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280 

290 
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310 

320 
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530 
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n n n n 


410 

411 
412 


C 


42  0 

421 
42  2 


C 


430 

431 
432 


C 


460 

461 


450 

442 


VHTP  #2  COMPARISON  VARIABLES 

CVCA 

540 

AVERAGE  PATH  CURVATURE  RATIO  , CUVRAT 

CVCA 

550 

AVERAGE  LONGITUDINAL  DECELERATION,  AXAVE 

CVCA 

560 

PEAK  BODY  SIDESLIP  RATE,  BETDMX 

CVCA 

570 

IF  (TIME.LT.CGAM)  GO  TO  410 

CVCA 

580 

IF  ( TIME .GT.  {CG AM  + 1.))  GO  TO  411 

CVCA 

590 

CURVAV  = CUR  VA V + ONER 

CVCA 

600 

ABBTV  = ABS(BTV) 

CVCA 

610 

ABTVDT  = ABS  (BTVDT) 

CVCA 

620 

IF (ABBTV. GT.BETAMX)  BETAMX  = ABBTV 

CVCA 

630 

IF  (ABTVDT.  GT.  BETDMX)  BETDMX  = AETVDT 

CVCA 

640 

GO  TO  411 

CVCA 

650 

CURTBP  = ONER 

CVCA 

660 

CONTINUE 

CVCA 

670 

CONTINUE 

CVCA 

680 

IF  (I  VHTP.  NE.  3)  GO  TO  422 

CVCA 

690 

VHTP  #3 

CVCA 

700 

IF  ( (GETDL.  EQ.O.  ) . AND.  (JUMP.  EQ.O))  GO  TO  4 20 

CVCA 

710 

IF(TIME.GT.  (TIMBMP  + 1))  GO  TO  42  1 

CVCA 

720 

JUMP  =1 

CVCA 

730 

CURVAV  = CURVAV  ♦ ONER 

CVCA 

740 

ABTVDT  = ABS  (BTVDT) 

CVCA 

750 

ABBTV  = ABS  (BTV) 

CVCA 

760 

IF (ABTVDT. GT. BETDMX)  BETDMX  = AETVDT 

CVCA 

770 

IF  (ABBTV. GT. BET AMX)  BETAMX  = ABETV 

CVCA 

780 

GO  TO  421 

CVCA 

790 

CURTBP  = ONER 

CVCA 

800 

TIMBMP  = TIME 

CVCA 

810 

CONTINUE 

CVCA 

820 

CONTINUE 

CVCA 

830 

IF  (IVHTP  .NE.  4)  GO  TO  432 

CVCA 

840 

VHTP  #4  COMPARISON  VARIABLES 

CVCA 

850 

IF  (TIME.LT.TST)  GO  TO  430 

CVCA 

860 

IF  (TIME. GT.  (TST  + 2.))  GO  TO  431 

CVCA 

870 

CURVAV  = CURVAV  + ONER 

CVCA 

880 

ABTVDT  = ABS  (BTVDT) 

CVCA 

890 

ABBTV  = ABS  (BTV) 

CVCA 

900 

IF (ABTVDT. GT. BETDMX)  BETDMX  = AETVDT 

CVCA 

910 

IF  (ABBTV. GT.  BET AMX)  BETAMX  = ABETV 

CVCA 

920 

CELBET  = BETAMX  - BETA 

CVCA 

930 

GO  TO  431 

CVCA 

940 

BETA  = BTV 

CVCA 

950 

CONTINUE 

CVCA 

960 

CO N TIN  U E 

CVCA 

970 

IF(IVHTP.NE,  5)  GO  TO  442 

CVCA 

980 

VHTP  #5  COMPARISON  VARIABLES 

CVCA 

990 

IF  (TIME.  GT.  ( (1. /FREQ)  ♦ 1.4))  GO  TO  450 

CVCA  1 

000 

IF  (DSW.  GT.  0)  GO  TO  460 

CVCA1 010 

DELSTR=  DELSTR  + ABS  (Y  ♦ 144.) 

CVCA1 020 

GO  TO  461 

CVCA1 030 

CONTINUE 

CVCA1 040 

DEL STR= DELSTR  ♦ ABS  (Y  - 144.) 

CVCA1 050 

CONTINUE 

CVCA1 060 

ABBTV  = ABS  (BTV) 

CVCA1 070 

IF (ABBTV. GT.BETAMX)  BETAMX  = ABETV 

CVCA 1 080 

DELPSI  = PSI 

CVCA1 090 

CONTINUE 

CVCA1 100 

CONTINUE 

CVCA1 110 

VHTP  #6  COMPARISON  VARIABLE 

CVCA 1 120 

IF  (ABS  (PHIDT) . GT. PHIDMX)  PHIDMX  = ABS (P  HI DT) 

CVCA1 130 

IF  (ABS  (ETAL)  .GT.AYNAX)  AYMAX=  AES(ETAL) 

CVCA1 140 
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TEMP E = ABS  (R/RAD) 

CVCA1 150 

IF (TEMPE.GT.  PM  AX ) RM AX=TEMPE 

CVCA1 160 

TEMP  E = ABS  (PSI) 

CVCA1 170 

IF (TEMPE.GT. PS I M AX) PSI M AX  = T EM  EE 

CVCA1 180 

TEMP  E = ABS (PHI/RAD) 

CVCA1  190 

IF (TEMPE.GT.  PHIMAX)  PHIMAX  = TEM  EE 

CVCA1 200 

IF  (0  . GE.  1 0. 0 * MPH I PS ) TI ME  10 =TIME 

CVCA1210 

IF (U  . GE.25.0*MPHIPS) TIME25=TIME 

CVCA1 220 

IF (TIME. LE. 5.0) PSI5=PSI  /BAD 

CVCA1 230 

RETURN 

CVCA1 240 

END 

CVCA1250 
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RTMON 


Presented  here  is  the  Fortran  listing  for  the  real- 
time mode  initialization  subprogram.  The  following  is  performed 
in  RTMON: 


1. 

2. 

3. 


Initialization  of  order  programs  to  perform  real- 
time input /output . 

Initiation  of  simulation  runs. 

Suspension  of  the  simulations  OS  processing  until 
the  real-time  processing  is  completed. 


SUBROUTINE 

SUBROUTINE 


RTMON 

RTMON 


RTMO 

RTMO 


10 

20 


THIS  SUBPROGRAM  PERFORMS 
1)  INITIALIZATION  C 
INPUT/OUTPUT 
INITIATION  OF  SI 
SUSPENSION  OF  IH 
REAL-TIME  PSOCES 


2) 

3) 


* 

* * * 

* 

** 

* * 

M 

5 TH 

2 

FO 

ILO 

F 

CR 

D 

ER 

P 

F,OG 

MULA 

T 

IO 

N 

BUN 

E 

SI 

M 

UL 

AT 

ION 

c 

ING 

IS 

C 

CMP 

* 

* 

** 

* * 

N 

NN 

E 

i,s 

A 

VE 

2 

/ 

MOP 

U 

,1 

EU 

NS, 

W 

t 

L 

ET 

sw 

> R 

£ 

B,0 

P 

RB 

,PILR 

T 

IMBU 

f. 

LD 

ARB 

C 
C 
C 
C 

c 
c 

CO MMON/CSMON/  I RS  ALT , N N N N RTMO  40 

COMMON/EVTRB/SA VEO, SAVE1 , SAV 
COMMON/OSTRAN/  IC  T , 1 
COMMCN/APL/  OPEN  , RTSW 
COMMON/RBBLK/ 

COMMON  /BBBLK/  TCNBU F , T IMBU f , I B ARB  ,TDARB  ,PILRB1 
COMMON/RB3LK/SLRB05 ,RLEBC5 

COMMON  /EC8BLK/PILECB,TCNECE, TIMECB, ADAECE,TDAEC£ 

COMMON/ECB  BLK/  AD  1ECB  ,ICECB ,OPECB 
COMMON  /ECBBLK/OSECB  ,D0NECB, SLECB5 , RLECB5 
COMMON/I NO UT/  IN  (48)  , EACO (4  8)  ,ISWl,ISW7,IPRT 


TO  PERFORM  REAL-TIME 


* S OS  PROCESSING  UNTIL  THE 


ITRUNS 


REAL*8 
REAL *8 
RE AL*8 
REAL*8 
REAL  *8 
REAL*8 

REAL*4 
R E A L * 4 


IN  TEGER*  4 
INTEGER  *4 
INTEGER*  4 
INTEGER  *4 
INTEGER*4 
IN  TEGER  * 4 
INTEGER+4 
IN  TEGER  * 4 
INTEGER*4 


TIMBUF  (8) 
SAVE2  (16) 

SA VEO  (16) 


PILRB  (3)  , LDARB  (23) 


, PILBB1  (3) 
OPR  B ( 6) 

, SA VE1  (16) 


, TD  ARB  (6) 


, TCNBUF  (8) 
,AD  1 RB  (12) 
,ICRB{6) 


SLRB05  (6)  , RLR  E05  (6) 


IN 

ADC 2 (24) 


CON  SL/0 1/ 


, ADC  1(24) 

TC  NEC  E 
, PILECE 


, TIM  EC  B 
,ADAECB 
IMO  DO P/04/ 


,TD AECB 
,OPECB 


FIRST/0/, LAS1/47/ 

NONE/O/, AD1ECB,  IMODIC/06/, ICECB 

MONE/- 1/  , F1/00/  ,11/47/ 

TDAECB 

OSECB  ,DONECE 

S CLO 5/5/, RC 105/5/, SL  ECB  5 , RL  ECB5 


RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 

RTMO 
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60 

70 

80 

90 

100 

110 

130 

140 

150 

160 

170 

180 

190 

200 

210 

230 

240 

250 

260 

270 

280 

300 

310 

320 

330 
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c 

c 

c 


200 


320 


21  0 


215 


310 


INTEGER  * 2 NUNEVT/C3/  , ZERO/00/ 

RTMO 

340 

INTEGER*  2 ONIT/19/ 

RTMO 

350 

IN  TEGER  * 2 TWO/02/ 

RTMO 

360 

INTEGER* 2 RTS W ,RBSW  ,LETSW  ,OPEN  ,OPDN 

RTMO 

370 

RTMO 

380 

EQUIVALENCE  (ADC1  (2  4)  , IN  (2  4)  ) , { ADC2  ( 1)  , IN  (25)  ) 

RTMO 

390 

RTMO 

400 

EXTERNAL  INIT/CART  , EN DR  UN , H YBI N T 

RTMO 

410 

RTMO 

420 

IF  { RBSW.EQ. 1 ) GO  TO  200 

RTMO 

430 

CALL  EL  J C B ( • J00 7 • , CS ECB , N UM EVT , NON E ) 

RTMO 

440 

CALL  DE  FEP ( IN  IT , SA VEO , ZER C , 1 NO NE • , ' NO ' ) 

RTMO 

450 

CALL  DEF EP  ( ENDRUN,SAVE1  , Z ERC, ' NONE'  NO*  ) 

RTMO 

460 

CALL  CEFEP  ( C A RT , S A VE 2 , Z ER C , 'NO N E • , • NO ' ) 

RTMO 

470 

CALL  CR  BCRB  ( F 1 , 1 1 , ADC  1 , AD  1 R E , A D1  ECB  , C ONSL  ) 

RTMO 

480 

CALL  TLD ARB ( T E AP B , T D A EC B, CO NSL  ) 

RTMO 

490 

CALL  SSCLRB  ( SC LO 5 , SL RB 0 5 , S LECB5 , CO NS  I) 

RTMO 

500 

CALL  RSCLRB  ( RCLO  5 , R I RBO  5 , R L ECB5  , CON  SL) 

RTMO 

510 

CALL  SAMORB  ( I HO DIC  , ICR B , I CECB, CON SL  ) 

RTMO 

520 

CALL  SAMORB  ( I MODO P ,OPR B ,0 P ECB , CONSL  ) 

RTMO 

530 

RBSW  =1 

RTMO 

550 

CON  TIN  UE 

RTMO 

560 

IF  (IREALT. EQ.O  ) GO  TO  210 

RTMO 

570 

IF  (NNNN  . EQ.  1)  GO  TO  32C 

RTMO 

700 

NNNN  = 1 

RTMO 

710 

CALL  RTOPN 

RTMO 

600 

CALL  RT  ACT ( ZEROf'JC07'  ) 

RTMO 

610 

CONTINUE 

RTMO 

740 

CALL  DEFPR ( UNIT  , H YBI NT , • J C 07 ' ) 

RTMO 

630 

LDTSW  = 0 

RTMO 

640 

OSECB  = 0 

RTMO 

650 

CALL  RT  ACT ( TWO  ,'J007'  ) 

RTMO 

660 

CALL  WAIT  RT ( OSECE  ) 

RTMO 

670 

CALL  WA ITBU ( 200  ) 

RTMO 

680 

CALL  DEFP  R ( UNIT , MONE, ' J007«  ) 

RTMO 

690 

GO  TO  215 

RTMO 

700 

CONTINUE 

RTMO 

710 

CALL  LBDA  FP  ( FIR  ST , 1 AST , DA  CO , IE RR  ) 

RTMO 

720 

CALL  TLD  A 

RTMO 

730 

CALL  CRBCFP ( F1,L1,AEC1,  ICFBCE  ) 

RTMO 

740 

CALL  MODEL 

RTMO 

750 

CO  NT  IN  UE 

RTMO 

760 

RETURN 

OVERLAY 

ENTRY  RTMONT 

OVERLAY 

IF  (IREALT. EQ.O)  GO  TO  310 

RTMO 

960 

OSECB  = 0 

OVERL  AY 

CALL  HPCST  (DONECE, ' EN ' ) 

OVERLAY 

CALL  WAITRT (OSECB) 

OVER! 

.AY 

CONTINUE 

RETURN 

RTMO 

770 

EN  D 

RTMO 

780 
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H-2.1.15 


RTIME 


executive 


Presented  here  is  the  Fortran  listing  of  the  real- 
su  program.  The  following  is  performed  in  RTIME: 


time 


1. 


Assignment  of  priority  interrupt  addresses  to  real- 
time events . 


2. 


Initialization  of  the  interval 
cycle  timing. 


timer  for  computation 


3.  Execution  of  all  real-time  input /output . 

4.  Checks  for  end-of-run  conditions. 

5.  Deactivation  of  real-time  mode  at  the  end  of  a simu 
lation  run. 


C SUBROUTINE  RTIME 

SUBROUTINE  RTIME 

C ***************  **  *********************************************** 


RTIM 

RTIM 


******* 


THIS 

D 

2) 

3) 

4) 

5) 


SUBPROGRAM  PERFORMS  THE  FOILOWING: 

ASSIGNMENT  OF  PRIORITY  INTERRUPT  ADERESSES  TO 
REAL-TIME  EVENTS 

INITIATION  OF  THE  INTERVAL  TIMER  FOR  COMPUTATION 
TIMING 

EXECUTION  OF  AIL  REAL-TIME  INPUT/OUTPUT 
CHECKS  FOR  END-OF  RUN  CONDITIONS 
DEACTIVATION  OF  REAL-TIME  MODE  AT  THE  END  OF  A 
SIMULATION  RUN 


CYCLE 


C************************************  ******  ***************************** 


,PILRB1 


COMMON/APL/  OPEN  ,RTSW  ,LDTSW  ,RBSK 
COMMON/ RBBLK/  AD1RB,ICEE,0PRB ,PILRB 
COMMON  /RBBLK/  TCNBU E , TIM BU F, LD ARB  , TD ARB 
COMMON/RBBLK/SLRB05 ,RLRB05 

COMMON  /ECBBLK/PILECfi,TCNECB, TIMECB, ADAFCE,TDAECB 
COMMON/E CBBLK/  A D 1 ECB  , ICECB , 0 E ECB 
COMMON  / EC  BB  LK/O  SEC  B , DONEC B , SL ECB5 , RLECB5 
COM  MON/INOUT/  IN(48),EA 


CO  M MON /NON AM  E/XEN  D ,0,EXIT2 
COMMON/NODLY/INDXCN 
DIMENSION  CSI  (4)  ,XBM  (4) 


REAL*8 
REAL*8 
REAL*8 
REAL  *8 
RE  AL*8 
REAL+8 

RE AL*4 
REAL*4 


BUFF  (8) 
TIM  BU F (8) 
ICR B (6)  , PILRE1 

BUFFI  (8) 


IN 

ADC 2 (24) 


(3) 


10 

20 


RTIM 

RTIM 

RTIM 

RTIM 

RTIM 

RTIM 

RTIM 


40 

50 

60 

70 

80 

90 

100 


; 4 8)  , ISW  1 , ISW7  ,IPRT 
. Y,Z,THE,PHI,PSI 
DT 

RTIM 

140 

20)  ,1  EOT  A D (12  0)  ,PARAM(400) 

RTIM 

150 

1,  PSI5,PHIMAX,  DSWMAX 

RTIM 

160 

l 

RTIM 

170 

RTIM 

180 

■P  (4) 

RTIM 

190 

LfiB  (3 ) ,LDARB  (23)  ,TCNBUF(8) 

RTIM 

200 

RTIM 

210 

ADI  RB  (12) 

RTIM 

220 

'RB  (6)  , TD  A RB  (6) 

RTIM 

230 

RTIM 

240 

') 

RTIM 

250 

RTIM 

260 

RTIM 

270 

C 1 (24) 

RTIM 

290 
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nno  non  non 


IN  TEGER  * 4 TIMCAN  , TC  N EC  B , TIM  EC  E RTIM 

IN  TEGER  * 4 CONSL/01/  ,PILECE  , ADAECE  ,TDAECB  RTIM 

INTEGER*  4 EV  T RET/ 02/  ,TIM INT/120000/  RTIM 

IN  TEGER  * 4 SLECB 5 , RLECB 5 , FIRST/00/  , LAST/47/  RTIM 

INTEGE R*  4 OPECB, ADI ECE, ICECB  RTIM 

IN  TEGER  * 4 TDAECB  , STATUS  RTIM 

, INTEGER*  4 OSECB  , DO  N EC  E RTIM 

IN  T EGER  * 4 PILCB1  RTIM 

C RTIM 

IN  TEGER  * 2 PI L 1ST ( 2) / 1 , 0/ , E V TL ST/ 1 / RTIM 

INTEGER  * 2 TWO  /0 2/  ,CNE/C1/  RTIM 

INTEGER  + 2 RTSW  ,RBSW  ,LDTSW  ,OPEN  RTIM 

C RTIM 

EQUIVALENCE  (ADC  1 (2  4)  , IN  (24)  ) , (ADC2  ( 1)  , IN  (25)  ) RTIM 

EQUIVALENCE  (PARAM  (016)  , EOO  VE  E) 

RTIM 

EVENT  0 RTIM 

RTIM 

ENTRY  IN  IT  RTIM 

CALL  FGET  ( PILIST,  C , ' JO  07 ' , P ILRB1  ) RTIM 

PILECB  = 0 RTIM 

CALL  PC AN ( PILIST, BUFF, PILECE  ) RTIM 

CALL  HIOCHK ( PILECE  ) RTIM 

CALL  PEVT  ( PILIST, EVTLST,  • J007»  ,PILBB  ) RTIM 

DONECE  = 0 RTIM 

CALL  HWA  IT ( DONECB  ) RTIM 

CALL  PREL  ( PILIST,  ’JOO?'  ,PILBB1  ) RTIM 

CALL  HDON E ( ' DN * ) RTIM 

CALL  HEXIT  RTIM 

RTIM 

EVENT  1 RTIM 

RTIM 

ENTRY  ENDRUN  RTIM 

TCNECB  = 0 RTIM 

CALL  RDT I MR  ( T I MC A N , TCN ECB , 1 CAN C ' , TCN B UF  ) RTIM 

CALL  HIOCHK  ( TCNECB  ) RTIM 

PILECB  = 0 RTIM 

CALL  PD  AC  ( PILIST, EUEF, PILECE  ) RTIM 

CALL  HIOCHK!  PILECB  ) RTIM 

PILECB  = 0 RTIM 

CALL  PCAN  ( PILIST, BUFF, PILECE  ) RTIM 

CALL  HIOCHK  ( PILECB  ) RTIM 

ICECB  = 0 RTIM 

CALL  HIOREQ ( ICRB  ) RTIM 

CALL  HIOCHK { ICECE  ) RTIM 

CALL  RTCA N ( TWO  , STATUS  ) RTIM 

CALL  HOSPST ( * FN « ) RTIM 

CALL  HEXIT  RTIM 

RTIM 

EVENT  2 RTIM 

RTIM 

ENTRY  CART  RTIM 

IF  ( LDTSW.EQ»1  ) GO  TO  230  RTIM 

PILCB1  = 0 

CALL  PCAN (PILIST, BUFFI ,PILCB1 ) 

CALL  HIOCHK (PILCB1) 

PILCB1  = 0 RTIM 

CALL  PACT  ( PILIST, EUFF1, PILCE1  ) RTIM 

CALL  HIOCHK  { PILCE1  ) RTIM 

OPECB  - 0 RTIM 

TIMECB  = 0 RTIM 
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560 
570 
580 
590 
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630 
640 
650 
660 
670 
680 
690 
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840 

880 
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CALL  HIOREQ { OPRB  ) 

TIMINT  = 1.  E06*DT/PARAM  (175) 

CALL  LDTIMR  { TIMINT ,TIMEC8  ,EVTRET, TI MBUF  ) 

LDTSW  = 1 
GO  TO  2 50 
230  CONTINUE 
SLECB5=0 
TDAECB  = 0 
AD1ECB  = 0 

CALL  HIOREQ  (SLRB05) 

CALL  HIOREQ ( ADlRE  ) 

J=0 

DO  200  1 = 1 , INDXCN 

J=  J+  1 

2 00  CONTINUE 
C 

CALL  HIOC  HK  ( ADlECB  ) 

CALL  MODEL 
ADA  £CB  = 0 
RLECB5=0 

CALL  LSDART  ( FIR  ST , I AST , CA  CO ,LD  ARB  , ADAECB, CON SL  ) 

CALL  HIOREQ  ( TDARB  ) 

CALL  HIOREQ (RLRB05) 

C APL  WILL  TERMINATE  REAI-TIME  RUN  IF  EITHER 

C CONDITION  SHOWN  BELOW  IS  SATISFIED 

0=  SQBT  (U*U*V*V) 

IF  (U.LE.  0-  1)  CALL  RTACT  (ONE  , #JC07*) 

IF  (PHI M A X.  GT . POO V ER ) CALI  RTACT  (ONE, » J007  ' ) 

IF ( ( ISW1.EQ.1  ) . OR . { ISW7.EQ.1  ))  CALL  RTACT  { ONE  ,«J007'  ) 
IF ( TIME. LE.XEND. AND. O.GE.EXIT2  ) GO  TO  250 
CALL  RTACT  ( ONE,»J007  ' ) 

250  CONTINUE 

CALL  HEXIT 

RETURN 

END 


RTIM  890 
RTIM  860 
RTIM  870 
RTIM  900 

RTIM  910 
RTIM  920 
RTIM  930 
RTIM  940 
RTIM  950 
RTIM  970 
RTIM  980 
RTIM  990 
RTIM 1 000 
RTIM 1010 

RTIM 1 020 
RTIM 1 030 
R TIM  1 040 
RTIM 1 050 
RTIM 1 060 
RTIM  960 
RTIM 1070 
RTIM1 080 
RTIM 1090 
ETIM1 100 
RTIM 1110 


RTIM 1 130 
RTIM 1 140 
RTIM1 150 
RTIM 1 160 
RTIM 1 170 
RTIM 1 180 
RTIM 1 190 
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H-2.1.16  CMPVAR 


Presented  here  is  the  Fortran  listing  for  the  performance 
comparison  variable  (PCV)  calculation  subprogram.  The  calculation 
and  output  of  the  PCV's  are  performed  in  CMPVAR  following  each  simu- 
lation run. 


C SUBROUTINE  CMPVAR  CMPV 

SUBROUTINE  CMPVAR  CMPV 

C*** ******************************************************************** 

C THE  CALCULATION  AND  OUTPUT  CF  THE  CV'S  ARE  PERFORMED  IN  THIS 

C SUBPROGRAM  FOLLOWING  EACH  SIMULATION  RUN 

C************* ******************************* *************************** 


C 


CO MM ON /COM  VAR/  A XAVE, CUVRAT  ,BETDMX , CURT BP , TIM DEC , JUMP, DELSTR, DEL, 
1 AXI,CURVAV,AEBTV,AYMAX,RMAX, DELBET , DELPS I, BETAMX, 

1 TIMBMP, GETDL,TIMIN5,  TSTEP , IVHTP 

COMMON/THINGS/TMA  XI ,TMAX2, TMA  X3  ,TQ RMAX , TQ F MAX , PS I M AX , ON ER 
COMMON/NEWER/TIME25 ,TIHE10, FSI5,PHIMAX, DS  KM AX 
COMMON/SP7BLK/N  1 ,N2,IPCT  (120)  ,IPOTAD(120)  ,PARAM(400) 
COMMON/SAYERS/S D,TS TOP 
COMMON/NON  AM  E/X END , 0 , E XIT2 

COMMON/EFFS/ANUM, ADEN, ANUMDT, AD ENDT , AN UMO , ADENO , A NUMDO , ADE N DO , 

1 ANOUT,ADOUT 

COM MON/C OMBLK/  SM,CIP,CIVP,RZF, RZR , A2T, CA 20,CA23 ,TSF02 , 

1 TRO2,TFO2,TSO2,G,THRD,TWN7,R2T,RA20, EA23 

COMMON /TIM  BLK/J  JTIM  E , T I ME , D I 
EQUIVALENCE  (PAR AM  (106) , EREQ) 

DATA  CUR V1G/. 00078/ 

DATA  LPTR/2/ 

CALCULATION  OF  COMPARISON  VARIAELES 
IF (TIM DEC. EQ.0. ) TI MDEC=. 00 00 CO 001 
IF  (CURTBP.  EQ.0.  ) CURTEP=.  00000001 

GO  TO  (1 ,2, 3, 4,5,6)  , IVHTP 
AXAVE  = AX I*  DT/T IMDEC 
GO  TO  10 

1 CONTINUE 

AXAVE  = AX I*  DT/TIMD  EC 
AX ABS=ABS  (AXAVE) 

IF(TIME.LT.PARAM  (117) ) GO  TO  10 
TSTOP=EXIT2/  (AX  ABS*  G) 

SD= ( AX A V E* G* TSTOP** 2 ) / 2 . ♦ EXIT2*TSTOP  ♦ ANUM 
GO  TO  10 

2 CONTINUE 

AXAVE  = AX  I* DT/T IMDEC 
AXABS=ABS(AXAVE) 

TSTOP  = EX  IT  2/  (A  XAB  S*G) 

SD=  { AX  A VE*G*TSTOP**  2) /2.  ♦ EXIT2*TSTOP  + ANUM 
CUVRAT  = CUR VA  V * DT/CURTBP 
GO  TO  10 

3 CONTINUE 

CUVRAT  = C UR  VA  V * DT/CURTBP 
GO  TO  10 

4 CONTINUE 

CUVRAT  = CUR VAV*.5*DT/CURVlG 
GO  TO  10 

5 CONTINUE 

DEL  = (D  ELST  R*DT/  ((1./EREQ)  +1.4))/12. 

6 CONTINUE 


CMPV 

CMPV 

CMPV 

CMPV 


CMPV 

CMPV 

CMPV 

CMPV 

CMPV 

CMPV 

CMPV 

CMPV 

CMPV 

CMPV 


CMPV 

CMPV 

CMPV 


CMPV 

CMPV 

CMPV 

CMPV 

CMPV 

CMPV 

CMPV 

CMPV 

CMPV 

CMPV 


10 

20 


40 

50 

70 

80 


600 

610 


90 

100 

110 

120 

130 

140 

150 

160 

170 

180 


190 

200 

210 


220 

230 

240 

250 

260 

270 

280 

290 

300 

320 
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10  CONTINUE  CMPV  330 

RM  AX  = RMAX/57.3  CMPV  340 

WRITE (LPTR, 2345)  AX AV E , T IM DEC , C UVR AT ,BETDMX , BETAMX , DELBET , CMPV  350 

1 AYMAX,PHIMAX,RMAX ,DEL, EELPSI, DSWMAX,TQFMAX,TQR MAX  CMPV  360 

2345  FO  RM  AT  ( * 0 A XA  V=  ' , F8 . 3 , ' DECI  TIME=',F8.3,  ' A VC\JR=  • , F8.  3 , ' BTDMAX='CMPV  370 

1 ,F8 . 3 , ' BTMAX= ' ,F8. 3,  • DELBT= • , F8. 3/  CMPV  380 

1'0AYMAX=',F8.3,'  PH I M A X= • , F 8. 3 , • RM AX= • , F 8. 3 , • LANE  CHNG  DEL=' , CMPV  390 

1 F8 . 3 , ' DELPSI=' , F8. 3,  • MAX  ST EER='  , F8 . 3/  CMPV  400 


1 ’0FTRQMAX= ' , F9. 1 , • RTR0MAX=', E9. 1/) 
RETURN 
END 


CMPV  410 
CMPV  420 
CMPV  430 
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H-2.1.17  QSTD 


Presented  here  is  the  Fortran  listing  of  the  subprogram 
which  outputs  nonstandard  data.  The  performance  comparison  vari- 
ables are  output  from  QSTD. 


C SUBROUTINE  QSTD 

SUBROUTINE  QSTD 

c*************************************** 

C STANDARD  END  OF  RUN  DATA  IS  OUTPUT 

C ***  * *+*  ******************************** 

COMMON/DEVICE/KEYBD ,ITTY ,ICDR C, LPT 
COMMON /COM VA  R/  A XA V E , C U VR A T , B ETPMX 
1 AXI,CURVAV, ABBTV,AY 

1 TIMBMP,GETDL,TIMIN5 

COMMON/T  HI NGS/T  MAXI ,TMAX2,TMAX3,TQ 
COM  MON/NEWER /TIME  2 5 , TIME  10  , ESI  5 , PH 
WRITE (IT TY, 2345)  AXA VE,1IMDEC  ,CUVR 
1AYHAX,PHIHAX,RMAX,DEL,EELPSI,  ESWMA 
2345  FO  RM  AT ( • 0 A XAV= ’ , F8 . 3 , ' DEC  L TI ME= 
1 ,F8 . 3 , ' BTMAX=  • ,F8.  3,  • EELBT= ' , F8 . 
1*  AYM AX= 1 , F8 . 3 , ' PH I M A X= ' ,F 8. 3 , • E 
1F8.3,'  DELPSI=' , F8. 3, * MAX  STEE  B-' 
1'  F T R Q M A X=  ' ,F10.0,’  RTEQMAX  = * , F 10. 
RETURN 
END 


QSTD 

QSTD 


10 

20 


******************************** 

FROM  THIS  SUBPROGRAM 

******************************** 

R,LPNT 


, TSTEP  , IV  HT 

RMAX,TQFMAX,PSIMAX,ONER 
I MAX, DSWMAX 


X»TQFMAX, TQE  MAX 
' ,F8. 3,  * A V C U R= 

3/ 

MAX=  1 , F8. 3,  1 LAI 
, F8 . 3 / 

0/) 


QSTD 

40 

,STR,  DEL, 

QSTD 

50 

BETAMX, 

QSTD 

60 

P 

QSTD 

70 

QSTD 

80 

QSTD 

90 

r 

QSTD 

100 

QSTD 

110 

BTDM AX= 

* QSTD 

120 

QSTD 

130 

DLL-* , 

QSTD 

140 

QSTD 

150 

QSTD 

160 

QSTD 

170 

QSTD 

180 
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H-2.1.18  ERMONT 


. Presented  here  is  the  Fortran  listing  for  the  abnormal 
simulation  operation  subprogram.  The  conditions  of  vehicle  roll- 
over, DAC  overrange,  and  ADC  overrange  are  detected  by  ERMONT  when 
single-run  execution  is  performed. 


C SUBROUTINE  ERMO NT (MOP U , ORNA ME  ,PHI M AX)  ERMO  10 

SUBROUTINE  ERMONT  (MOPU ,CRNAME, PHIM AX)  ERMO  20 

C * * * * * * * * * * * * * * * * * ** * * ** * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * ♦ * * *** * * * * * * * * * * * * 

C THE  CONDITIONS  OF  VEHICLE  RCLL-OVER,  DIGI TAL-TO-ANALOG  CONVERTER 

C OVERRANGE,  AND  AN ALOG -TO-DI GI T AL  OVERRANGE  ARE  DETECTED  BY 

C THIS  SUBPROGRAM  WHEN  SINGLE  RUN  EXECUTION  IS  PERFORMED 

C*********************************************************************** 


COMMON/EMQN/IERDAC  (10)  , TERD  AC  (10)  , I DAC K ,1  ENDR  (20) 

ERMO 

40 

COMMON/E  BMON2/  IERAEC(IO)  , T ER  ACC  (1  0 ) , I A DC  K 

ERMO 

50 

COMM ON/D AC ADC/  NAHDAC, NAMADC, IDAC, IADC, ADCNUM , DACNUM 
COMMON/SP7BLK/N1  ,N2,IPCT  (120)  ,IFOTAD(120)  ,PARAM(400) 
EQUIVALENCE  (PAR  AM  (0  1 6)  , ROOVEF) 

ERMO 

R 

60 

INTEGER *2  NAMDAC  (48  ),  NAMADC  (4  8)  ,IDAC(48)  , IADC  (48)  , ADCNUM,  DACNUM 

ERMO 

70 

REAL*8  ORN  AM  E (4  00) 

IF  (PHIMAX.  LT.  ROOVER)  GC  TO  20  0 

ERMO 

80 

WRITE(MOPU,205)  PHIMAX 

ERMO 

80 

205 

FORMAT  (’  VEHICLE  ROLL  CVER  PH  IM  AX=  * , F8  . 2) 

ERMO 

90 

200 

CONTINUE 

ERMO 

90 

IF  (IDACK.LT.  1)  GO  TO  100 

ERMO 

100 

WRITE  (MOPU  ,105) 

ERMO 

110 

WRITE  (MOPU,  1 06) 

ERMO 

120 

WRITE  (MOPU,  107)  (TERD AC  (J)  , CR  NAME  ( NAMDAC  (IER DAC  (J)  ) ) , 

ERMO 

130 

1 IDAC  (IERDAC  (J)  ) , J=  1 ,IDACK) 

ERMO 

140 

105 

FORM AT ( ' DAC  OVERLOAD') 

ERMO 

150 

106 

FORMAT  ( ' TIME  VAR*) 

ERMO 

160 

107 

FORMAT  (F8. 2, 2X,A6,«  (*,I4,*)  •) 

ERMO 

170 

100 

CONTINUE 

ERMO 

180 

IF  (IADCK.LT.  1)  GO  TO  3C0 

ERMO 

190 

WRITE(MOPU,305) 

ERMO 

200 

WRITE(MOPU,106) 

ERMO 

210 

WRITE  (MOPU,  1 07)  (TER  ADC  (J)  , CR  N A ME  ( NAMADC  (I ERADC  (J)  ) ) , 

ERMO 

220 

1 IADC(IERADC (J) ) , J=1 , I ADCK) 

ERMO 

230 

305 

FORMAT  (*  ADC  OVER  RANGE') 

ERMO 

240 

300 

CONTINUE 

ERMO 

250 

RETURN 

ERMO 

260 

EN  D 

ERMO 

270 
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H-2.1.19  NTRACT 


Presented  here  is  the  Fortran  listing  for  the  NTRACT 
subprogram.  This  subprogram  is  for  simulation  control  via  the 
interactive  routines  using  the  option  command. 


C SUBROUTINE  N TRACT  (*,*,*,*) 

SUBROUTINE  NTRACT  (*,*,*,*)  NTRA  10 

C***** *************************** *************************************** 

C THIS  SUBPROGRAM  IS  FOB  SIMULATION  CONTROL  VIA  THE  INTERACTIVE 

C ROUTINES  USING  THE  OPTION  COMMAND 

C*************  **  * * ***  *************************************************** 


c 

c*** 

c 


*************************  COMMON  AREAS  ***************************** 

COMMON/START/  ZDU MM Y (4 ) 

COM MON/T ABBS/  ITA BP , ITABI , I TN A M , TA BNUM 
COMMON/E MON/IERDAC  (10)  ,TERDAC  ( 10)  , IDACK  ,1  ENDR  (20) 

COMMON/ERMON2/  I ERA  DC  (10)  , TER  ADC  (1  0)  ,IADCK 

COM MON/NEWER/TIME 25, T I ME 1 0,  PS  15 , PHIM AX , DS HM AX 

COMMON/DEVICE/KEY BD, ITTY, ICCRD, LPTR,LPNT 

COMMON  /ECBBLK/PILECB,TCNECB, II MEC B , ADA  EC E, TDAECB 

COMMON/ECBBLK/  A D 1 EC E , ICECB , O F ECB 

COMMON  /ECBBLK/OSECB  ,DONEC B, SLECB5 , RLECB5 

COMMON/OSMON/  I RE  ALT , N N N N 

COMMON/OSTRAN/  IC T, IR 1 , MOP U ,1  RUNS, LRU NS ,REALT, IT RUNS 
COM MON/D AC ADC/  NAMDAC, NAMADC, ID  AC, I ADC, ADCNUM , DACNUM 
COMMON/IO/  DACPLA , A DC PLA , SC ALDC  ,SC A LAC 

COM MON/T RAC K/JI N, IK EEP, AT RACK, I SAMP, ON TIM ,OFFTIM , ITRA , 

1 ITRAA, ITRNA ,ITRIA 

COMMON/UNREAD/NAMEA, IWRDCT, IN UMCT, L ST AR T, IN DEXA , 

1 FNUMA,LAST, ILOP 

COMMON/FIND/ORN AME  (400)  ,NCOM, RSVAL  (002)  ,1  ORDER  (400) 

COMM  ON/TIMBLK/ J JT IME,TIME, DT 

COMMON/SP7BLK/N1  ,N2,IPOT  (120)  ,IPOTAD(120)  ,PARAM(400) 

COMMON/O VRLA Y/  OPT EST , V ALMR , F IN LMR , NTIM El  , NTIME2 , LOCAT, LOOPN 
COMMON/NTCOM/  O UTNA  M , U N NAM  , MODENA,  J DATE 
COMMON/NTCOM/  IOU, MODE  , DEVICE  ,IMODE 
COM  HON/PLOT A/IPLF , NP 


NTRA 

20 

NTRA 

30 

NTRA 

40 

NTRA 

50 

NTRA 

60 

NTRA 

70 

NTRA 

80 

NTRA 

90 

NTRA 

100 

NTRA 

110 

NTRA 

120 

NTRA 

130 

NTRA 

140 

NTRA 

150 

NTRA 

160 

NTRA 

170 

NTRA 

180 

NTRA 

190 

NTRA 

200 

NTRA 

210 

NTRA 

220 

NTRA 

230 

NTRA 

240 

NTRA 

250 

OVERL 

AY 

OVERLAY 

NTRA 

*************** ***************************** **************** «**********NTgA 


NTRA 

REAL*8  NAMEA  (1  0)  , RETURN  NTRA 

RE AL*8  OPTION  (20)  ,OPTEST  , ASEL T ( 1 5)  ,R  EMO VE, R ESET  NTRA 

R E AL * 8 BLANK  NTRA 

REAL+8  NMES, NTESTP, NTESTO  NTRA 

REAL *8  N ADCL , NDACL, NDUMP,NNPC,NPLOT,NSTD  NTRA 

RE AL*8  NTRACK, NTM,NTIME,NT ABLE  NTRA 

REAL*8  OUTNAM  (21)  ,NX  , NTE  EM  ,NRESR , NIC  , NADC  A NTRA 

RE AL*8  NXM,UNNAM  (3)  ,MCEENA  (4)  NTRA 

REAL*8  ORNAHE  NTRA 

REAL*8  NSA  MPL , NL  A NTRA 

REAL*8  NDACA , NMU LT , C NA HE , Nil, NFF  NTRA 

REAL *8  NUOPT,NUOT1 , NSTAT  NTRA 

BEAL*8  ENDDAC, ENDADC  NTRA 

REAL  *4  ZDUMMY  NTRA 

REAL*4  VALMR  (20)  , FINLMR  (20)  NTRA 

REAL *4  FNUHA  (10)  NTRA 

RE AL*4  SCALAC  (48)  , SCALDC  (48)  NTRA 


260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 
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BEAL  *4  IPO  T,  IPO  TA  D 

REAL*4  XDOWN  (100)  , Y ACRCS  (100) 

INTEGER*  4 RTSW  , INDEXA(IO) 

ITABI  (9) 

DONECB,OS  ECB,TIMINT 
ITABP  (9)  , TABNUM ,1 TN  AM  (9) 

ITRA  A (50)  , ITRNA  (50)  ,ITRIA(50) 

IN  TEGER* 2 LOC  AT  (20)  , IOOPN  (20) 

IN  TEGER  *2  DEVICE  (21)  , I CEDE  R ,1  MO  DE  (2  0) 

DACNUM,  ADCNUM,DACPLA  (48)  , ADCPLA  (48) 
NAfIDAC  (48)  , NA  MADC  (46)  ,IDAC(48)  , IADC  (48) 
JDATE  (3) 

ATRACK  (2000) 

B VALUE  (2) 

I V ALU  E (2) 

(BVALUE  (1)  ,ZDUMHY  (1  ) ) 

(BVALUE  (1)  , IV  ALUE  (1)) 


NTR A 460 


INTEGER*4 
INTEGER*  4 
IN  TEGER  * 4 
INTEGER*2 


INTEGER*  2 
INTEGER*2 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
EQUIVALENCE 
EQUIVALENCE 


EQUIVALENCE  (OP  TION  ( 1 ) , N X)  , (OFTI  ON  (2  ) , N IC) 

1 (OPTION  ( 4)  e NADCA)  ,(OFTION(  5),NDACA) 

2 (OPTION  ( 7)  , Nil)  , (OPTION(  8),NMES) 

3 (OPTION  (10)  ,NRESR)  , (OPTION  (1  1 ),  RESET) 

4 (OPTION  (13)  ,NMULT)  , (OFT  ION  ( 1 4)  , N XM) 


, (OPTION  (3)  , NTERM)  , 
(OPTION  ( 6 ) , NFF)  , 
(OPTION ( 9) , NTESTP) , 
(OPTION  (12)  , REMOVE)  , 
(OPTION  (15)  , N UOPT) 


EQUIVALENCE  (A  S ELT  ( 1 ) ,NTI  MD)  , (ASELT  ( 2 ) , NDUMP)  , (ASELT  ( 3),NSTD) 


1 (ASELT ( 4)  , NTESTC) 

2 (ASELT  ( 7)  , NTABLE) 

3 (ASELT  (10)  , N ADC L) 

4 (ASELT  (13)  ,NTN) 


(ASELT  ( 5)  0 NLA) 
(ASELT  ( 8)  ,NPLOT) 
(ASELT  <1 1 ) ,NSA  MPI) 
(ASELT  (14)  , N ST AT ) 


(ASELT  ( 6)  ,NTRACK) 
(ASELT  ( 9)  ^ NDACL) 
(ASELT  (12)  , N NPC) 
(ASELT  (15)  0 N UOT1 ) 


NTR  A 
NTRA 
NTR  A 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 


C 

C *** 

c 

c 

c 

c 

c 

c 

c 


NTRA 

********************************  ***********************************J)TRA 

NTRA 

BLANK/*  */ 

OUT  NAM/ 'STD* , ' TM * , 'TABLE 18*  • */ 

DEVICE/2,2,3, 17*0/ 

IMODE/1 ,1 , 3, 17*0/ 

UNNAM/*  L * , *T * B */ 

MO  DEN  A/ 'S ' , »XEQ ' , 'H ' , • A */ 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 


DATA 


DATA 

DATA 

I 

1 

2 

CALL 

CALL 


OPT  ION/' X*  , * IC  * , 'TERM', 'A  DC  A*,'  DACA  ' , 
• TEST' RE- SIR' , 'RESET'  ,» REMOVE' 
• UOPT* , 5* ' ZZZZZZZZ */ 

RETURN/'  '/ 

ASELT/*  T*D' , 'DUMP' , 'STD' , ' TESTO'  , • LA'  , 


F'/I', 
* MULTI ' 


•MES  ', 
# ' X M ' , 


C 

c**** 

c 

**  * 
* 

* 0 
* 

**  * 


NTRA 
OVERLAY 
OVERLAY 
OVERLAY 
OVERLAY 
OVERLAY 
NTRA  810 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 
NTRA 

******************************************************************* NTRA 

NTRA 

************  NTRA 

* NTRA 

PTION  TEST  * - ENTER  A NAME  FROM  KEYBD  (OPTEST)  NTRA 


TRACK1 


• DACL ' , ' A DCL  ’ , 
LOAD  JDATE  ARRAY 
WRITE  TIME  AND  CATE 
IDATE (JDATE) 

TIMDAT (JDATE, ITTY) 


•SAMPLE', 'PC', 'TM', 'STAT' 


•TABLE' , 'PLOT' 
, ' UOUT 1 '/ 


*********** 


820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 


IF 

IF 

IF 

IF 

IF 


OPTEST 
OPTEST 
OPTEST 
OPTEST 
NONE  OF 


IS  AN  OPTION  KEYWORD  PASS  CONTROL  TO  OPTION 
IS  AN  OOTPUT  KEYWORD  PASS  CONTROL  TO  OUTPUT 
IS  IN  THE  ANAME  ARRAY  WRITE  ITS  PRESENT  AND 
IS  EQUAI  TO  RESET  GO  TO  RESET  ROUTINE 


THE  AECVE  ENVCKE  ERROR  MONITOR 


NTRA 
NTRA 
NTRA1 000 
EXECUTI NTRA1 010 
ARRAY  ANTRA  1 020 
INITI ALNTRA1 030 
NTRA 1 040 
NTRA1 050 
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c 

NTRA1060 

8749 

WRITE (ITTY , 8754 ) 

NTRA1 070 

8754 

FORM  AT  (1  HO,  'OPTION'  ) 

NTRA1 080 

LRUNS=0 

READ  (KEYBD,  1 031)  OPTEST 

NTRA1 090 

1031 

FORMAT  (1A8) 

NTRA1  100 

8450 

CONTINUE 

NTRA1 110 

LSTART=1 

NTRA1  120 

LA  ST=90 

NTRA1 130 

c 

NTRA1 140 

DO  8756  10 R= 1,20 

NTRA1 150 

IF  (OPTION  (IOR)  .EQ. OPTEST)  GO  TO  8758 

NTRA1 160 

8756 

CONTINUE 

NTRA1 170 

C 

NTRA1 180 

DO  8765  IS=1 ,15 

NTRA1 190 

IF  (OPTEST.  EQ.ASELT  (IS)  ) GO  TO  720 

NTRA1 200 

8765 

CONTINUE 

NTRA1210 

C 

NTRA1 220 

WR ITE (ITTY, 1000) 

NTRA1230 

1 000 

FORM  AT  ( 1 HO , ' ERROR  - OPTION  NCT  FOUND  - 

RENTER  •) 

NTRA1240 

GO  TO  8749 

NTRA1250 

C 

NTRA1 260 

c***** 

i ******************************************************************  NTRA1 270 

C 

NTRA1280 

Q ******************** 

NTRA1 290 

C * 

* 

NTRA1 300 

C * OPTION  EXECUTIVE  * - CONTROL  IS  PASSED  FROM  OPTION  TEST 

NTRA1310 

C * 

* 

NTRA1 320 

c ******************** 

NTRA1330 

875  8 

CONTINUE 

NTRA1 340 

C 

IF  OPTEST  IS  EQUAL  TO: 

NTRA1350 

c 

1 X - TRANSFER  CONTROL  TO  EXECUTION 

REGION 

NTRA1360 

c 

2 IC  - TRANSFER  CONTROL  TO  EXECUTION 

R EGION 

NTRA1 370 

c 

3 OUTPUT  - TRANSFER  CONTROL  TO 

OUTPUT  ARRAY  ASSEMBLER 

NTRA1 380 

c 

A)  TABLE  (SETUP  END-OF-RUN 

OUTPUT) 

NTRA1 390 

c 

B)  TRACK  (SETUP  DURING  RUN 

DATA 

COLLECTION) 

NTRA1 400 

C)  LA  (LIST  ARRAY  VALUES) 

D)  T+D  (OUTPUT  TIME  AND  DATE) 

E)  STD  (STANDARD  OUTPUT) 

F)  DUMP  (OUTPUT  ALL  VARIABLES) 

G)  SAMPLE  (SETUP  FOB  FEAL-TIME  DATA  COLLECTION) 

4 TERM  - TRANSFER  CONTROL  TO  TERMINAL  REGION 

5 A DCA  - ALTER  ADC  ARRAY 

6 DACA  - ALTER  DAC  ARRAY 

7 F - FLOATING  POINT  OPERATIONS 

8 I - INTEGER  OPERATIONS 

9 MES  - SEND  MESSAGE  TO  LINE  PRINTER 

10  TEST  - EXECUTE  TEST  ROUTINE 

11  RE-STR  * RESTARTS  (READS  IN  NEW  DATA) 

12  RESET  - LOADS  OUTPUT  NAME  ARRAY  WITH  BLANKS 

13  REMOVE  - REMOVES  NAMES  FROM  OPTION  LIST 

14  MULTI  - SETS  UP  MULTI  RUN  LOOP  6 VARIABLES 

15  XM  - TRANFER  CONTROL  TO  EXECUTION  REGION  FOR  MULTI 

16  UOPTION  - USER  OWN  OPTION  SUBROUTINE 

IF  (OPTEST.EQ.NX)  GO  TO  8802 
IF  (OPTEST.  EQ.  NIC)  GO  TC  8802 
IF  (OPTEST.  EQ.NXH)  GO  TO  8802 
IF (OPTEST. EQ.NTERM)  GO  TO  8809 
IF  (OPTEST.  EQ.  RESET)  GO  TO  8230 
IF  (OPTEST.  EQ. REMOVE)  GO  TO  82  34 


RUNS 


NTRA1 410 
NTRA1 420 
NTRA1 430 
NTRA1 440 
NTRA1 450 
NTRA1 460 
NTRA1 470 
NTRA1 480 
NTRA1 490 
NTRA1 500 
NTRA1 510 
NTRA1 520 
NTRA1 530 
NTRA1 540 
NTRA1 550 
NTRA1 560 
NTRA1 570 
NTRA1 580 
NTRA1 590 
NTRA1 600 
NTRA1 610 
NTRA1620 
NTRA1 630 
NTRA1 640 
NTRA1 650 
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IF  (OPTEST. EQ. NRESR)  RETURN  1 NTRA1660 

NTRA1670 

******************************************************  ******* *******+*ntR  A 1680 

NTRA1 690 


IF  (OPTEST. NE.NADCA)  GC  TO  500C 

C #####  ADC  ROUTINE  ##### 

CALL  A DCA (ADCNUM, NA  MADC ,1 ADC , SC ALAC , ADC PL A, ITT Y, KE Y BD) 

5000  CONTINUE 

IF  (OPTEST. NE. Nil.  AND. OPTEST. NE.NFF)  GO  TO  5010 

C ##### ALTER  OR  READ  DATA  LIST  ---##### 

CALL  RDWRT  (OPTEST) 

5010  CONTINUE 

IF  (OPTEST. NE.NDACA)  GO  TO  5020 

C ##### DAC  ROUTINE  ---##### 

CALL  DACA  (DAC NUM , N A MD AC , I D AC , SCALDC, DACPLA, ITT  ¥ , KEY BD) 

5020  CONTINUE 

IF  (OPTEST.  NE.NMES)  GO  TO  5035 

C ##### MESSAGE  ROUTINE  ---##### 

CALL  MESBTN  (ITT  Y , KEY  ED  , RETU  RN  ,LPTR) 

5035  CONTINUE 

IF  (OPTEST.  NE.  NMULT)  GO  TO  5040 
C #####---  MULTI  RUN  ---##### 

CALL  MULTRN  (ITT Y , LOC AT, LOOEN , V ALM R , FINLM R r ICT , IRU NS) 

5040  CONTINUE 

IF  (OPTEST. NE.NTESTP)  GC  TO  5050 

C #####-—  TEST  OPTION ##### 

CALL  TESTP  (K EYB D , ITTY , NCOM , OR  NAME , I ORDE R, EVALUE , RS V AL, R EALT ) 
5050  CONTINUE 

IF  (OPTEST.  NE.  NUOPT)  GO  TO  5070 

C ##♦##---  USER  OPTION  SUBROUTINE  ##### 

WRITE (ITTY, 8764) 

5070  CONTINUE 

GO  TO  8749 
C 


NTRA1700 
NTRA1710 
NTSA1720 
NTRA1730 
NTRA1740 
NTRA1750 
NTRA1760 
NTRA1770 
NTRA1780 
NTRA1 790 
NTRA1800 
NTRA1810 
NTRA1 820 
NTRA1 830 
NTRA1 840 
NTRA1850 
NTRA1 860 
NTSA1 870 
NTRA1880 
NTRA1 890 
NTRA1900 
NTRA1 910 
NTRA1920 
NTRA1 930 
NTRA1 940 
NTRA1 950 
NTRA1960 
NTRA1 970 
NTRA1980 
NTRA1 990 


£******************************************************************** ***NTRA2 000 
C NTRA2010 

C **************************  NTRA2020 

C * * NTRA2030 

C * OUTPUT  ARRAY  ASSEMBLER  * - CALLED  FROM  THE  OPTION  TEST  OR  EXECUTIVE  NTRA2040 
C * * NTRA2050 

C **************************  NTRA2060 

C NTHA2070 

720  WR ITE ( ITTY ,700)  NTRA2080 

700  FO RM  AT ( 1 H , ' UN  IT , MODE  ' ) NTRA2090 

CALL  UNFORM  (5,1)  NTRA2100 

DO  705  IOU=1 ,3  NTRA2110 

IF  (UNNAM  (IOU)  . EQ.  NAMEA  (1)  ) GO  TO  710  NTRA2120 

705  CONTINUE  NTRA2130 

WRITE  (ITTY, 7 15)  NTRA2140 

715  FO  RM  AT  ( 1 H , • FOR  UNIT  ENTER  L (IIN  PT)  , T (TELE),  B (BOTH)')  NTRA2150 

GO  TO  720  NTRA2160 

710  DO  725  MODE=  1,4  NTRA2170 

IF  (MODENA(MODE)  .EQ.  NAMEA  (2)  ) GO  TO  730  NTRA2180 

725  CONTINUE  NTRA2190 

WRITE(ITTY,735)  NTRA2200 

735  FORMAT (1H  , • FOR  MODE  ENTER  A (ALL),  S (SING.),  M (MULTI),  NTRA2210 

1 X EQ  (EXECUTION)')  NTRA2220 

GO  TO  720  NTRA2230 

730  CONTINUE  NTRA2240 

C NTRA2250 
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c *** 

2005 

C ##•# 
2010 
c ### 
2020 
C ### 
2030 
C *** 

2040 

C ### 


670 

741 

745 

740 

C *## 

8234 

350 

7350 

##* 

823  0 
8231 

**** 


IF  (OPTEST.  NE.  NLA)  GO  TC  2005 

** ARRAY  SET  UP if## 

CALL  ARAST 
CONTIN  UE 

IF  (OPTEST. NE.NTABLE)  GC  TO  2010 

## TABLE  SET  DP ##### 

CALL  TABLES (ITT Y, KEYBD) 

CONTINUE 

IF  (OPTEST.  NE.  NTRACK)  GC  TO  2020 

## TRACK  ROUTINE  ##### 

CALL  TRACKS (ITT Y, KEYBD, DT) 

CONTINUE 

IF  (OPTEST.  NE.NSAMPL)  GC  TO  2030 

## REAL  TIME  SAMPLE  SETUP  SUBROUTINE 

WRITE(ITTY,8764) 

CONTINUE 

IF  (OPTEST. NE.NPLOT)  GO  TO  2 04  C 

## PREEARE  DATA  FOR  PLOTTING  ##### 

CALL  PLOTS (ITTY, KEYBD) 

CONTINUE 

## SET  UP  OUTPUT  NAME  ARRAY  ##### 

IF  (MODE. NE. 2)  GO  TO  670 
OUTNAM  (21)  =0 PTE  ST 
DEVICE  (2  1)  =IOU 
GO  TO  82  53 
DO  741  J J= 1 , 20 

IF  (OUTNAM  (JJ)  . EQ.  OPTEST)  GO  TC  740 

CONTINUE 

DO  7 45  JJ=1,20 

IF  (OUTNAM  (JJ)  .EQ. BLANK)  GO  TO  740 
CONTINUE 

OUTNAM  (JJ)  =OPTEST 
IMODE(JJ)=MODE 
DEVICE  (JJ)  = IOU 
GO  TO  87  49 

## REMOVE  SINGLE  VARIABLE  ##### 

CONTINUE 

WRITE(ITTY,350) 

FORMAT  (1  H ,'WHAT') 

READ  (KEYBD, 1031)  OPTEST 
DO  7350  1=1,20 

IF  (OUTNAM  (I)  .EQ.  OPTEST)  OUT  NA  H ( I)  = BL  ANK 

CONTINUE 

GO  TO  8749 

## RESET  OUTPUT  NAME  ARRAY  ##### 

LOAD  OUTPUT  NAME  ARRAY  WITH  BLANKS 

DO  8231  1=1,20 

OUTN  AM  (I)  =BLANK 

CONTINUE 

GO  TO  8749 


NTRA2260 

NTRA2270 

NTRA2280 

NTRA2290 

NTRA2300 

NTRA2310 

NTRA2320 

NTRA2330 

NTRA2340 

NTRA2350 

NTRA2360 

NTRA2370 

NTRA2380 

#####  NTRA2390 

NTRA2400 

NTRA2410 

PLOT 


NTRA2420 
NTRA2430 
NTRA2440 
NTH A2  450 
NTRA2460 
NTRA2470 
NTRA2480 
NTRA2490 
NTRA2500 
NTRA251 0 
NTRA2  520 
NTRA2530 
NTRA2540 
NTRA2550 
NTRA2560 
NTRA2570 
NTRA2580 
NTRA2590 
NTRA2600 
NTRA261 0 
NTRA2620 
NTRA2630 
NTRA2640 
NTRA2650 
NTRA2660 
NTRA2670 
NTRA2680 
NTRA2690 
NTRA2700 
NTRA271 0 
NTRA2720 


*******************************************  ************************N1'RA2730 


******************* 

* * 

* EXECUTION  REGION  * - CONTROL  IS  T FAN  SFERED  FROM  OPTION  EXECUTIVE 

* * 

******************* 

8802  CONTINUE 

1 FILL  BV ALU E ARRAY  WITH  INITIAL  CONDITIONS 

2 SET  POTS 


NTRA2740 

NTRA2750 

NTRA2760 

NTRA2770 

NTRA2780 

NTRA2790 

NTRA2800 

NTRA2810 

NTRA2820 
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C 3 SET  DACS 

C 4 EQUIVALENCE  ♦ STOFE  IC 

C 5 IF  BEAL  TIME, IS  CALLED  ENTER  FLAGE 

C 6 WRITE  TIME ,D  ATE , AND  RON  NUMBER 

C 7 CHANGE  ANALOG  MODE 

C ********************************************************************** 
C 

C#### RUN  COUNTER  LOGIC  ---##### 

C 

IF  (OPTEST. EQ.NIC)  GO  TO  170 
LRUNS=LRUNS*  1 
ITRUNS=ITRUNS+1 
170  CONTINUE 


* * 

##### FIRST  MULTI  RUN  VARIABLE  INITIALIZATION  PASS  ##### 

* * 

******************* 

IF  (ICT.  EQ.O. OR. OPTEST.  NE.NXM)  GOTO  165 
DO  160  1=1, ICT 

IF  (LRUNS.LT. LOOPN  (I)  ) GC  TO  160 
KTEMP  = LRUN  S-LOOPN  (I) 

BVALUE  (LOCAT  (I))=VALHR(I)  ♦ FLO  AT  (KTEMP)  * FI  NLMR  (I) 

160  CONTINUE 
165  CONTINUE 

##### USER  INITIALIZATION  SUBROUTINES 

RETURN  2 

ENTRY  NTRAT1  (*,*,*,*) 

******************* 

* * 

##### SECOND  PASS  FOR  MUITI-RUN  VARIABLE  REINITIALIZATION  ##### 

* * 

******************* 

IF(ICT. EQ.O. OR. OPTEST. NE.NXM)  GC  TO  155 
DO  150  1=1, ICT 

IF(LRUNS.LT.  LOOPN  (I)  ) GO  TO  150 
KTEHP=LRUNS  - LOOPN  (I) 

EVALUE  (LOCAT  (I)  ) = VA  LM  R (IJ+FLOAT  (KTEMP)  * FI  NLMR  (I) 

150  CONTINUE 
155  CONTINUE 

********************************************************************** 

THIS  ROUTINE  SETS  POTS  ON  680 

IF  (REALT.LT. .5)  GO  TO  75 
DO  1702  1=1,120 

IF(IPOT  (I)  . EQ.IPOTAD  (I)  ) GOTO  1702 
CALL  POTCHK  (I,IPOT  (I)  ,3,68152,68152) 

IPOTAD  (I)  =IPOT  (I) 

1702  CONTINUE 
75  CONTINUE 

THIS  CALL  PLACES  THE  680  IN  IC 

CALL  S AMO (6 , ISA MOE) 

IKEEP  = ISAMP  - 1 
PASS  = ASAMPL 
IDACK=0 
IADCK  = 0 


NTRA2830 
NTRA2840 
NTRA2850 
NTRA2860 
NTRA2870 
NTRA2880 
NTRA2890 
NTRA2900 
NTRA291 0 
NTRA2920 
NTRA2930 
NTRA2940 
NTRA2950 
NTRA2960 
NTRA2970 
NTH A2  980 
NTRA2990 
NTRA3000 
NTRA3010 
NTRA3020 
NTRA3030 
NTRA3040 
NTRA3050 
NTRA3060 
NTRA3070 
NTRA3080 
NTRA3090 
NTRA3100 
NTRA3110 
NTRA3120 
NTRA3130 
NTRA3140 
NTRA3150 
NTRA3160 
NTRA3170 
NTRA3180 
NTRA3190 
NTRA3200 
NTRA321 0 
NTRA3220 
NTRA3230 
NTRA3240 
NTRA3250 
NTRA3260 
NTRA3270 
NTRA3280 
NTRA3290 
NTRA3300 
NTRA3310 
NTRA3320 
NTRA3330 
NTRA3340 
NTBA3350 
NTRA3360 
NTRA3370 
NTRA3380 
NTRA3390 
NTRA3400 
NTRA3410 
NTRA3420 
NTHA3430 
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JIN  = 0 

IF  (OPTEST.  EQ- NIC)  GO  TC  8749 

CALL  WAITBU  (200) 

IF  (LRUNS.GT.  1)  GO  TO  1688 
CALL  TIM  DAT  (JDATE,ITTY) 

CALL  TIMDAT(JDATE,LPTB) 


WRITE  (LPTR  ,9050) 
HRITE(ITTY,9050) 
9050  FORMAT  (1  HO  RUN 
1 'OUTPUT  BELOW') 
1888  CONTINUE 


ITRUNS 
ITRUNS 
',13,'  HAS 


STARTED'/lHO, 


CALL  CLOCK  (NTIHE1) 


***** 


***** 


***** 


****  * 


***** 


***** 


***** 


C##### ENTER  REAL  TIME 

C * * 


PART ##### 


C * 

C 

c 

c 

c — 


IREALT  = 0 
IF  (REALT.GT. 
IF  (REALT.GT. 

AT  THIS  POINT 
RTMON  INTURN 


.5)  IREALT 
.5)  IRT=  1 

* 

THE  RTMON 
EXECUTS  THE 


= 1 


SUBPROGRAM 

MODLE 


IS  ACTIVATED 


RETURN  3 

ENTRY  NTRAT2  (*,*,*,*) 


WHEN  EXECUTION  TAKES  PLACE  THE  FOLLOWING  TAKES  PLACE: 

1 REAL  TIME  PRECENT  IS  CALCULATED 

2 CHANGE  ANALOGE  MODE 

3 CALCULATE  RUN  MOLE 

4 EXECUTE  SELECTED  OUTPUTS  FOR  GIVEN  MODE 

B MODE=3  FOR  MULTI-RUN 
A MODE=  1 FOR  SINGLE  RUN 

5 IF  MODE  IS  EQUAL  TO  TWO  GO  TO  OPTION  TEST 

6 IF  PROGRAM  IS  IN  MULTI-RUN  IRONS  IS  GREATOR  THAN  LRUNS 

A INCREMENT  VARIABLES  SELECTED 
B EXECUTE  NEXT  RUN 

7 END  OF  RUN  LR0NS=0,  IRUNS=1 

8 RETURN  TO  OPTION  TEST 

******************* 

CALL  CLOCK  (NTIME2) 

NRTIME=NTIHE2-NTIME1 

IF(NRTIME.GT.  1)  RTPE  R=  (TI  ME*  1 0 000  . ) /FLOA  T (N RTI ME) 

MODE=1 

IF  (OPTEST.  EQ.NXM)  MODE=3 


CONTINUE 

**************** 


8253 

C **  * 

C * * 

C * OUTPUT  REGION  * 

C * * 

C ******************* 

DO  8943  1=1,20 
IFR=  1 


- CONTROL  IS  T PAN FER ED  FROM  OPTION  RUN  EXECUTIVE 


NTRA3440 
NTRA3450 
NTRA3460 
NTRA3470 
NTRA3480 
NTRA3490 
NTRA3500 
NTRA3510 
NTRA3520 
NTRA3530 
NTRA3540 
NTRA3550 
NTRA3560 
NTRA3570 
NTRA3580 
NTRA3590 
NTRA3600 
NTRA3610 
NTRA3620 
NTRA3630 
NTRA3640 
NTRA3650 
NTRA3660 
NTRA3670 
NTRA3680 
NTRA3690 
NTRA3700 
NTRA3710 
NTRA3720 
NTRA3730 
NTRA3740 
NTRA3750 
NTRA3760 
NTRA3770 
NTRA3780 
NTRA3790 
NTRA3800 
NTRA3810 
NTRA3820 
NTRA3830 
NTRA3840 
NTRA3850 
NTRA3860 
NTRA3870 
NTRA3880 
NTRA3890 
NTRA3900 
NTH A3  9 1 0 
NTRA3920 
NTRA3930 
NTRA3940 
NTRA3950 
NTRA3960 
NTRA3970 
NTRA3980 
NTRA3990 
NTRA4000 
NTRA401 0 
NTRA4020 
NTRA4030 
NTRA4040 
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ILA=2 

IF  (MODE. NE. 2)  GO  TO  555 
CNAME=OUTN AM  (21) 

IF  (DEVICE(21)  . EQ.  1)  IIA=1 
IF  (DEVICE(21) .EQ.2)  IFP=2 
1=20 

GO  TO  550 

555  IF  (IMODE  (I)  . EQ.  4)  GO  TC  560 

IF  (IMODE  (I)  . EQ.  MODE)  GC  TO  56  0 
GO  TO  8943 
560  CNAME=OUTNAM  (I) 

IF (CNAM E.EQ. BLANK)  GO  TO  8943 
IF  (DEVICE(I)  .EQ.  1)  IIA=1 
IF(DEVICE(I)  .EQ.2)  IFR=2 
550  CONTINUE 

DO  8946  K=IFR , ILA 
IF  (K.  EQ.  1)  MOPU=LPT  R 
IF  (K  . EQ  . 2)  MOPU  = ITTY 
IF  (CNAME.NE.  NADCL)  GO  TO  3000 

C#####---  LIST  ADC  ARRAY  ##### 

CALL  L ST ADC (ADCNUM, MOPU, I ADC, SC ALAC , NAM ADC, ORN AME) 
GO  TO  8946 
3000  CONTINUE 

IF  (CNAME.NE.  NDACL)  GO  TO  3010 

C##### LIST  DAC  ARRAY  ##### 

CALL  LSTDAC (DACNU H, MOPU, IDAC, SC ALDC , N AM  DA C,ORN AME) 
GO  TO  8946 
3010  CONTINUE 

IF  (CNAME.NE.  NDUMP)  GO  TO  3020 

C####t DUMP  ---##### 

CALL  DUMP  (MOPU,NCOM,ICRDER,OBNAME,  BVALUE) 

GO  TO  8946 
3020  CONTINUE 

IF(CNAME.NE.NLA)  GO  TO  3030 

C##### LIST  ARRAYS  S VALUES  *#### 

CALL  AR AWT (MOPU, BVA LUE ,CRNAME) 

GO  TO  8946 
3030  CONTINUE 

IF (CNAME.NE. NNPC)  GO  TC  3040 

C#i#  # # — - SPECIAL  PROGRAM  END  OF  RUN  DATA ##### 

WRITE(ITTY, 8764) 

GO  TO  8946 
3040  CONTINUE 

IF  (CNAME.NE.  NPLOT)  GO  TO  3050 

C##### PLOTING  SUBROUTINE  ##### 

CALL  PLOTS  1 

CALL  PLTOUT (XDOWN , YACRCS, MOEU  ,NE,I PLF, J DATE, ORN AME) 
GO  TO  8946 
3050  CONTINUE 

IF(CNAME.NE.NSTAT)  GO  TO  3060 
WRITE (ITTY,8764) 

GO  TO  8946 
3060  CONTINUE 

IF (CNAM E.NE.NSTD)  GO  TO  3070 

C##### STANDARD  OUTPUT  SUBROUTINE  — #§### 

CALL  QSTD(MOPU) 

GO  TO  8946 
3070  CONTINUE 

IF  (CNAME.  NE.  NTABLE)  GO  TO  3080 

C##### TABLE  OUTPUT  ##### 

CALL  TABLEO (MOP U , OR NA M E , LRU NS ,1 TRU NS, BVALUE) 


NTRA4050 
NTRA4060 
NTRA4070 
NTRA4080 
NTRA4090 
NTRA4 100 
NTRA4110 
NTRA4120 
NTRA4130 
NTRA4140 
NTRA4150 
NTRA4160 
NTRA4170 
NTRA4180 
NTRA4190 
NTRA4200 
NTRA4210 
NTRA4220 
NTRA4230 
NTRA4240 
NTRA4250 
NTRA4260 
NTRA4270 
NTRA4280 
NTRA4290 
NTRA4300 
NTRA43 1 0 
NTRA4320 
NTRA4330 
NTRA4340 
NTRA4350 
NTRA4360 
NTRA4370 
NTRA4380 
NTRA4390 
NTRA4400 
NTRA4410 
NTRA4420 
NTRA4430 
NTRA4440 
NTRA4450 
NTRA4460 
NTRA4470 
NTRA4480 
NTRA4490 


NTRA4510 
NTRA4520 
NTRA4530 
NTRA4540 
NTRA4550 
NTRA4560 
NTRA4570 
NTRA4580 
NTRA4590 
NTRA4600 
NTRA461 0 
NTRA4620 
NTRA4630 
NTRA4640 
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GO  TO  8946 
3080  CONTINUE 

IF(CNAHE.NE.NTESTO)  GO  TO  3085 

C«*#»# TEST  VALUE  OUTPUT  #§### 

WRITE (ITTY, 8764) 

GO  TO  8946 
3085  CONTINUE 

IF  (CNAME.NE.NTIMD)  GO  TO  3090 

C###t# DATE ##### 

CALL  TIM  DAT  (JDATE  ,MOPU) 

GO  TO  8946 
3090  CONTINUE 

IF  (CNANE.NE.  NTM)  GO  TC  3100 

C##### ERROR  MONITOR  OUTPUT  ##### 

CALL  ERNONT ( MOPU , ORN AM E, PHIMAX) 

GO  TO  8946 
3100  CONTINUE 

IF  (CNAME.NE.N  TRACK)  GO  TO  3110 


NTRA4650 
NTRA4660 
NTRA4670 
NTRA4680 
NTRA4690 
NTRA4700 
NTRA471 0 
NTRA4720 
NTRA4730 
NTRA4740 
NTRA4750 
NTRA4760 
NTRA4770 
NTRA4780 
NTRA4790 
NTRA4800 
NTRA4810 
NTRA4820 


c #### 

# TRACK  OUTPUT 

«#*** 

NTRA4830 

CALL  TRACO  (MOPU  , 

ORNAME,ET) 

NTRA4840 

GO  TO  8946 

NTRA4850 

311  0 

CONTINUE 

NTRA4860 

IF  (CNAME.NE.NUOT1)  GO  TO  3120 

NTRA4870 

c««t* 

# USER  OUTPUT 

OPTION  1 #1### 

NTRA4880 

WRITE (ITTY, 8764) 

NTRA4890 

GO  TO  8946 

NTRA4900 

3120 

CONTINUE 

NTRA4910 

8946 

CONTINUE 

NTRA4920 

8943 

CONTINUE 

NTRA4930 

8764 

FORMAT  ( 1 HO  , 'THIS 

OPTION  HAS  NCT  BEEN  PROGRAMED  YET') 

NTR A4  y40 

IF  (MODE.  EQ.  2)  GO 

TO  8749 

NTRA4950 

IF  (OPTEST.  EQ.  NX) 

GO  TO  8152 

NTRA4960 

8150 

IF  (IRUNS.EQ. LRUNS)  GO  TO  8152 

NTBA4970 

8152 


C 

C***  * 

C 

c *** 
c * 
c###t 
c * 
c *** 
C 880  9 
8809 


5607 

8821 


GO  TO  8802  NTRA4980 

CONTINUE  NTRA4990 

LR UN  S=Q  NTRA5000 

GO  TO  8749  NTRA5010 

NTRA5020 

* **  **  *************************************************** ***********ntRA5030 

NTBA5040 


**************** 

* 

# TERMINATE  t##t# 

* 

**************** 

OSECB=0 

CONTINUE 

CALL  TIMDAT  {JDATE, ITTY) 

IF  (IRT.  NE.  1)  GO  TO  5607 
CALL  HPOST (DONECB , • DN * ) 

CALL  WAITRT  (OSECB) 

CONTINUE 
WRITE  (ITTY , 8 82 1 ) 

FORMAT ( 1 HO , ' PROGRAM  TERMINATED') 
CALL  R ACN  ( 1 , IR ACNE) 

CALL  CHKIO 
CALL  WRTOFP 
CALL  RDOFF 
RETURN  4 
END 


NTRA5050 

NTRA5060 

NTRA5070 

NTRA5080 

NTRA5090 

OVERLAY 

NTRA5110 

NTRA5120 

OVERLAY 

OVERLAY 

NTRA5150 

NTRA5160 

NTRA5170 

OVERLAY 

OVERLAY 

OVERLAY 

OVERLAY 

NTRA5220 

NTRA5230 
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FUNCTION 


Presented  here  are  the  Fortran  listings  for  the  FUNC- 
TION subprograms  called  by  the  MODEL  subprogram.  The  following 
list  details  the  names  and  uses  of  the  functions: 


Function 

Use 

FF 

Calculation  of  front  wheel  brake  torque 

FR 

Calculation  of  rear  wheel  brake  torque 

FCSI 

Calculation  of  the  wheel  slip  sideforce 
function 

shaping 

PTBAK 

Calculation  of  a caster  trail  function 

GETDEL 

Calculation  of  a rectangular  bump  grid 
No.  3 

for  VHTP 

XINT 

Linear  interpolation  of  function  values 
input  table  data  points 

among 

AMIN 

Selection  of  the  minimum  value  between 
variables 

two 

POLY 

Evaluation  of  a fifth-order  polynomial 
tion  to  a function 

approxima' 

C FUNCTION  FF  (P) 

FUNCTION  FF  (P) 

******************************** 


CFUN 

CFUN 


**************  ************************* 


THIS  FUNCTION  C ALCUL AT IS  THE  FRONT  WHEEL  BRAKE  TORQUE 

C* ************ *********************************************** 

COMHON/NEWTBS/TQEF  (20)  ,PBF  (20)  ,TQBR  (20)  ,PEH  (20)  , 

1 AFA  (20)  , GAHF  (20 ) , NT F , NTH, N F A 
FF=XINT  (P,PBF,TQBF,NTF) 

RETURN 

END 


*********** 

CFUN 

CFUN 

CFUN 

CFUN 

CFUN 
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C FUNCTION  Ffi  (P)  CFUN 

FUNCTION  FR  (P)  CFUN 

C*** ****************************************************  **************** 

C THIS  FUNCTION  CALCULATES  THE  REAR  WHEEL  BRAKE  TORQUE 

C **********************************  ************  ************************* 


COM MON /N  EWTBS/TQBF  (20)  ,PBF  (20)  , TQB  R (20)  , P BR (20)  , CFUN 

1 AFA  (20)  , GAMF  (20)  , NTF,NTR,NFA  CFUN 

FR=XINT (F#  PBR,TQER,  NTR)  CFUN 

RETURN  CFUN 

END  CFUN 
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30 
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70 


C FUNCTION  FCSI (GAHI, SLPI)  CFUN  10 

FUNCTION  FCSI (GAMIrSLPI)  CFUN  20 

*********************************************************************** 

THIS  FUNCTION  CALCULATES  THE  WHEEL-SLIP  SIDE  FORCE 
SHAPING  FUNCTION 

*************  4c*  ******************************************************** 


CO M MON/ N EWTBS/TQBF  (20)  ,PBF  (20)  ,TQBR  (20)  ,PBR  (20)  , 

CFUN 

30 

1 AFA  (20 ) , GA  M F (20  ) ,NTF,NTR,NFA 

CFUN 

40 

TM P = A B S (SLPI) 

CFUN 

50 

FCSI  = XINT  (TMP,GAMF/AEA,NFA) 

CFUN 

60 

RETURN 

CFUN 

70 

END 

CFUN 

80 

SUBROUTINE  P TB A K (BE T , F BI , A K KI , PTBI ) PTBA  10 

SUBROUTINE  PT BA K ( BET , ERI, AK KI , PTBI)  PTBA  20 

*********************************************************************** 


THIS  FUNCTION  CALCULATES  CASTER  TRAIL 

C ************************************************************  *********** 


COMMON/PTBK/ API , AP2, AP3, AP4, A P5, BTC1 , BTC2  PTBA 

AP5=600.  PTBA 

AKKI=AP4*FRI/AP5  PTBA 

TEMP=ABS  (BET*57.  29578)  PTBA 

PTBI=AP 1 PTBA 

IF  (TEMP.  LE.  BTC1)  RETURN  PTBA 

PTBI=AP3  PTBA 

IF (TEMP. GT. BTC2) RETURN  PTBA 

PTBI=AP1* (1 .0- (TEMP-BTC1) *AP2)  PTBA 

RETURN  PTBA 

END  PTBA 
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FUNCTION  GET DEL (X,I,R5,NBMP)  CFUN 

FUNCTION  GETDEL  (X,I  ,R5,  NBMP)  CFUN 

C***  ** *********************************************************  ********* 


C THIS  SUBROUTINE  PRODUCES  THE  EUMPS  FOR  VHTP  #3 


CFUN 


C************* ********************************************************** 


COMHON/XBS/XB  (30)  ,NS  (4,30)  , DELX  (4)  , XI  (4),NNN  CFUN 

COMMON/X  YZ/N  UMB  R CFUN 

DIMENSION  X (4)  CFUN 

GETDEL=0.0  CFUN 

CO  10  K=  1 , NBMP  CFUN 

L=  N BMP  -K  + 1 CFUN 

IF  (X  (I)  .IE.  XB  (L)  ) NS  (I,  I)=NUHBR  + NNN  CFUN 

IF  (X  (I)  . GE.XB  <L)  . AND.NUMBR.  LE  .NS  (I  , L)  ) GC  TO  20  CFUN 

10  CONTINUE  CFUN 

RETURN  CFUN 

20  GETDEL  = R 5 CFUN 

RETURN  CFUN 

END  CFUN 
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140 

150 

160 


C FUNCTION  XINT (ARG, ARGTE, FU N , N F)  CFUN  10 

FUNCTION  XINT  (ARG,  ARGTB, FUN, NP)  CFUN  20 

£***  ***** ** * ******  *****************************  ************************* 

C THIS  FUNCTION  PERFORMS  LINEAR  INTERPOLATION  OF  FUNCTION 

C VALUES  BETWEEN  INPUT  TABLE  DATA  POINTS 

C*** *********************************************************  *********** 


DIMENSION  ARGTB  (NP)  , FUN  (NP) 

CFUN 

40 

DO  10  1=1, NP 

CFUN 

50 

IF  (ARG- ARGTB  (I)  ) 30, 20,  10 

CFUN 

60 

10 

CONTINUE 

CFUN 

70 

I=NP 

CFUN 

80 

30 

IF  (I.EQ.  1)  1=2 

CFUN 

90 

TEMP=  ( AEG- ARGTB  (I  -1  ) ) / (ARGTE  ( I)  -ARGTB  (1-1  )) 

CFUN 

100 

XIN T=  FUN  (1-1)  + (FUN  (I)  -FUN  (I -1 ) ) *TEMP 

CFUN 

110 

RETURN 

CFUN 

120 

20 

XI  NT=FUN  (I) 

CFUN 

130 

RETURN 

CFUN 

140 

END 

CFUN 

150 

C FUNCTION  AMIN  (X , Y)  CFUN 

FUNCTION  AMIN  (X  , Y)  CFUN 

Q ****************************************************************  ******* 

C THIS  FUNCTION  SELECTS  THE  MINIMUM  VALUE  BETWEEN  TWO  VARIABLES 

Q*** ********************************************************  ************ 


IF(X-Y)  1,1,2  CFUN 

1 AMIN=X  CFUN 

RETURN  CFUN 

2 AHIN=Y  CFUN 

RETURN  CFUN 

END  CFUN 
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10 

20 


FUNCTION  POLY  ( DL , T BL)  CFUN 

FUNCTION  PO L Y (DL  , TB  L ) CFUN 

C************* ********************************************************** 

C . THIS  FUNCTION  EVALUATES  A FIFTH-ORDED  POLYNOMIAL 
C APPROXIMATION  TO  A FUNCTION 

Q*****  **************  **************************************************** 


DIMENSION  T BL  (7 ) 

CFUN 

TM P = TBL  (7) 

CFUN 

DO  10  1=1,6 

CFUN 

TMP=  TM P*  DL+-T  BL  (7-1) 

CFUN 

CO  N T IN  U E 

CFUN 

POLY=TMP 

CFUN 

RETURN 

CFUN 

EN  D 

CFUN 
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Fig.  H-1  Analog  Computer  Diagram  — Angular  Accelerations  and  Velocities 
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Fig.  H-2  Analog  Computer  Diagram  — Linear  Accelerations  and  Velocities, 
Euler  Angles 
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Fig.  H-3  Analog  Computer  Diagram  — Deflection  Equations 
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Fig.  H-4  Analog  Computer  Diagram  - Suspension  Forces 
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Fig.  H-5  Analog  Computer  Diagram  — Auxiliary  Roll  Stiffness  and  Wheel-Slip 
Lockup  Logic 
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Fig.  H-6  Analog  Computer  Diagram  — Rotational  Wheel  Dynamics 


Amp. 
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Fig.  H-7  Analog  Computer  Diagram  — Steering  System  and  Shock  Absorbers 


I 
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Fig  H-8  Analog  Computer  Diagram  - Angular  Accelerates  and  Velocities 

/.  • i tormtl 
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Program  Parameter  Symbols  and  Definitions 


The  symbols  and  definitions  of  the  program  parameters 
* are  presented  in  this  section.  The  order  of  the  parameters  cor- 
responds to  the  input  data  cards. 
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o 

o 

pH 

Ph 


w 

w 

H 


H 

!=> 

Ph 

:s 

M 


P-i 

o 

c o 
:a 
o 

M 

H 
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S3 

M 

Pn 

W 

Q 


< 

H 


C 

Q 


PQ 


PS 

W 


O 


CP 

O 


CO 
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SYMBOLS  AND  DEFINITIONS  OF  THE  PROGRAM  PARAMETERS 
IN  ORDER  BY  DATA  INPUT  CARDS  (cont'd) 
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SYMBOLS  AND  DEFINITIONS  OF  THE  PROGRAM  PARAMETERS 
IN  ORDER  BY  DATA  INPUT  CARDS  (cont'd) 


H-lll 
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SYMBOLS  AND  DEFINITIONS  OF  THE  PROGRAM  PARAMETERS 


■u 

e 

o 

CJ 


CO 


c 

CJ 

H 

!=> 

is 

M 

c 

H 

c 

Q 

>-< 

PQ 

Pi 

W 

s 

O 
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SYMBOLS  AND  DEFINITIONS  OF  THE  PROGRAM  PARAMETERS 
IN  ORDER  BY  DATA  INPUT  CARDS  (cont’d) 
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SYMBOLS  AND  DEFINITIONS  OF  THE  PROGRAM  PARAMETERS 


4-1 

G 

O 

a 


CO 


u 

H 

Pm 

!S 


< 

H 

< 

Q 

>-i 

PQ 

Pi 

oj 

§ 

O 

s 

M 
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SYMBOLS  AND  DEFINITIONS  OF  THE  PROGRAM  PARAMETERS 


"O 

4-1 

G 

O 

O 


cn 

I 

o 

H 

!=> 

Pm 

S3 

H 

< 

H 

C 

O 

>< 

CQ 

Pi 

W 

S 

o 

12 

M 
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SYMBOLS  AND  DEFINITIONS  OF  THE  PROGRAM  PARAMETERS 
IN  ORDER  BY  DATA  INPUT  CARDS  (cont'd) 


CO 

X 

X 

CO 

X 

4-J 

4-J 

3 

4-J 

-U 

X 

X 

*H 

•H 

S 

/—N 

/'“S 

•H 

X 

4-J 

& 

& 

CO 

3 

& 

& 

X 

•H 

bO 

\ 

\ 

& 

£ 

X 

X 

3 

X 

X 

4-1 

4-J 

3 

3 

3 

3 

3 

3 

3 

4-J 

X 

3 

3 

3 

3 

Pi 

3 

3 

3 

3 

•H 

•H 

CP 

V— ' ' 

N— ' 

•H 

•H 

3 

3 

3 

3 

CO 

3 

3 

•H 

•H 

*H 

X 

S 

B 

•H 

X 

3 

o 

X 

X 

4J 

3 

3 
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X 

•H 

•H 

<4-4 

X 

3 

•Pi 

4-J 
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<H 

X 

X 

3 

3 

CO 

3 

3 

3 

<4-4 
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Co 

O 

O 
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3 

3 

O 
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SYMBOLS  AND  DEFINITIONS  OF  THE  PROGRAM  PARAMETERS 


X 
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•H 
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H-5.  Vehicle  Descriptor  or  Tire  Model  Coefficient  Symbols  and 
Definitions 

The  symbols  and  definitions  of  the  program  parameters 
that  are  vehicle  desciptors  or  tire  model  coefficients  are  pre- 
sented in  this  subsection. 
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